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D.1 ColecoVision Monitor Disassembly Listing 








1 TITLE CMON. MAC 

2 ; 78000 

3 = 0010 RADIX 16 

4 ; 

5 : THIS IS THE DISASSEMBLY OF THE 8K MONITOR ROM THAT RESIDES IN THE 
é ;. COLECO VIDEO GAME UNIT. 

7 ; 

8 ; 

9 + COLECO SYMBOLS 

10 ; 

it ; 

{9 : FIRST SOME RAM AREA DECLARATIONS 

13 ; 

14 = 7020 APOINT €QU 7020 =} ARRAY POINTER 

15 ; 

16. 7022 NOISEP EQU 7022 $ POINTER TO PROGRAM FOR NOISE GENERATOR 
17-7024 TONELP EQU 7024  $ POINTER TO PROGRAM FOR TONE! GENERATOR 
18 7026 TONE2P EGU #7026 3 POINTER TO PROGRAM FOR TONE? GENERATOR 
19 7028 TONE3P EQU 7028  $ POINTER TO PROGRAM FOR TONES GENERATOR 
20 = 702A NOICSH EQU 702A } NOISE CONTROL REGISTER SHADOW 

21 ; 

22 «=o 73BA P.AREA EQU 73BA  } AREA USED BY PCOPY TO HOLD PARAMETERS 
23 ; $ PASSED TO MONITOR ROUTINES FROM EXTERNALS 
24 ’ 

2% ©7303 VDPOSH EQU 7303  } SHADOW OF VDP REGISTER #0 

26 =—-73C4 VDPISH EQU  73C4 $ SHADOW OF VDP REGISTER #1 

27 ; 

282736 STRFLG EQU  73C4 $ SOME SCRACH SPACE 

29-7307 CPFLAG EQU  73C7 } IF 1, THEN RCOPY CAN DO RAM XFER ON A CODE=0 
30 »=—-73C8 RNDSED EQU 73C8 } 16 BIT SEED FOR THE PSEUDORANDOM NUMBER ROUTINE 
31 ; 

32 ©7307 CSTATP EQU 7307 =} POINTER TO GAME CONTROLLER STATE CONTROL TABLE 
33.0 73FE TEHP3 €QU  73FE 

4 H 

35 73EB PCNT! EQU § 73EB $ PULSE COUNTER #1 

36 © 73EC PCNT2 EQU 73EC } PULSE COUNTER #2 

37 ; 

38 = 7BEE JSiSH EQU 73EE  } SHADOW FOR JOYSTICK #1 

39° 73EF JS2SH EGU (73EF  $ SHADOW FOR JOYSTICK #2 

40 73F0 KPISH EQU 73FO  $ SHADOW FOR KEYPAD #1 

41 73F 1 KP2SH EQU (73F1  $ SHADOW FOR KEYPAD #2 

42 ; 

43 73F2 BASESH EQU  § 73F2 3 SHADOW ARRAY FOR VRAM BLOCK ADDRESSES 
44 —-73F2 SATASH EQU 73F2 } SPRITE ATTRIBUTE TABLE ADDRESS 

45  73F4 SPGASH EQU - 73F4  } SPRITE PATTERN GENERATOR ADDRESS 
45 so 73FS NTASH EQU 73F6 } NAME TABLE ADDRESS 

47 —so73FB PGASH EQU 73F8 } PATTERN GENERATOR ADDRESS 

48 —73FA CTASH EQU 73FA } COLOR TABLE ADDRESS 

49 : 

50 7389 STACK EQU 7389 }$ INITAL STACK POSITION 

51-8021 WMISER EQU 8021  $ ADDRESS OF NMI INTERRUPT SERVICE ROUTINE 
52 8000 STFADR EQU 8000  } ADDRESS OF START FLAG IN CARTRIDGE 

53 BOOA CSTART EQU 800A } CARTRIDGE PROGRAM START ADDRESS 

54 ; cn 

55 0080 KEY EQU 080 $ OUTPUT TO THIS PORT TO SELECT KEYPADS 


56 00C0 — JSTK = EQU 0CO ; OUTPUT TO THIS PORT TO SELECT JOYSTICKS 





81 


107 


110 
ill 
112 


OOFC 


ORF 


OOBE 
OOBF 


0000’ 
0003’ 


0006’ 
0008’ 


000B’ 


O00F” 


0010’ 


0013’ 
0017" 


0018’ 


001B’ 
OO1F’ 


0020’ 


0023’ 
0027’ 


0028’ 


0028’ 
002F’ 


0030’ 


0033’ 
0037’ 


0038’ 


0038’ 
003E’ 
0040’ 


MACRO-80 3.4 


31 7389 
C3 006E’ 


FF FF 
C3 800C 


FF FF FF FF 
FF 


C3 800F 


FF FF FF FF 
FF 


C3 8012 


FF FF FF FF 
FF 


C3 8015 


FF FF FF FF 
FF 


C3 8018 


FF FF FF FF 
FF 


C3 8018 


FF FF FF FF 
FF 


C3 801E 


24 7308 
CB 7C 
28 06 


01-Dec-8 PAGE = I-1 
CTROLi E@U OFC 
CTROL2 EGU OFF 
AUDIO § © EU OFF 
VOPR «EGU OBF 
VRAN EGU OBE 
VSTAT EGU OBF 
; 
; 
ORG 0000 
; 
H 
} 
; 
; 
RSTO; —sLD SP STACK 
JP CLBSTR 
H 
DB OFF ,OFF 
, 
RSTi: JP 0800C 
H 
DB OFF ,OFF OFF OFF, OFF 
; 
RST2; JP O800F 
’ 
DB OFF OFF OFF, OFF » OFF 
} 
+ JSP 08012 
; 
DB OFF OFF OFF, OFF OFF 
' 
RST43. JP 08015 
H 
rB OFF ,OFF OFF OFF, OFF 
; 
$ OP 08018 
? 
DB OFF ,OFF ,OFF OFF OFF 
? 
RST6: 08018 
? 
OFF OFF, OFF) OFF ,OFF 
? 
: 3 OP O801E 
? 
? 
PB ctseistrsrossoettrssesesteres tet ssl 
RNDX: = LB HL, (RNDSED) 
BIT 7H 
JR Z,RNDI 


} READ THIS PORT FOR CONTROLLER # 1 
} READ THIS PORT FOR CONTROLLER # 2 
} OUTPUT TO THIS PORT FOR SOUND CHIP 
+ PORT ADDRESS TO SET YRAM ADDRESS 

bi 


} READ THIS PORT FOR VIDEO STATUS 


HERE IS THE 280 MODE 0 INTERRUPT RST SERVICE AREA 


oe me 


; SET UP STACK 
; THEN GOTO COLD START ADDRESS 


DISPATCH # 34 
RETURN RANDOM NUMBER IN A 
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{13 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 


126 


147 
148 
149 
150 
151 
152 
153. 
154 
155 
156 
157 
158 
159 
140 
161 
162 
143 
164 


166 
167 
168 


0042’ 
0044’ 
0046’ 


0048’ 
004A’ 


004C’ 
0043’ 


O04F’ 
0050’ 
0052’ 
0054’ 
0057’ 
0058’ 


0059’ 
0050’ 
O05E’ 
0042’ 
0063’ 


0066’ 


0049’ 
006D’ 


Q06E ’ 
0071’ 
0072’ 
0074 
0077’ 
0078’ 
007A’ 
0070’ 
0080’ 


0081’ 
0084’ 
0087’ 
008A’ 
08D’ 
O08F’ 
0092’ 
0095’ 
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CB 44 
28 04 
18 07 


CB 44 
28 03 


37 
18 01 


B7 

CB O15 
CB 14 
22 7308 
7B 

Cc? 


FF FF FF FF 
FF 
FF FF FF FF 


FF 
FF FF FF 
C3 8021 


3C AB 16 23 
16 


2A 8000 
7D 

FE 55 
C2 0081’ 
7c 

FE AA 
C2 0081’ 
2A 800A 
Eg 


CD 1FD6’ 
21 0033 
22 7308 
CD 1105’ 
3E 00 

32 7306 
32 7307 
C3 1319” 





01-Bec-80 PAGE 
BIT 
R 
R 
; 
RNDi: = BIT 
R 
; 
: SCF 
R 
; 
+ OR 
+ ORL 
Rt 
LB 
LD 
RET 
, 
; 
' 
DB 
BB 
0B 
; 
' 
MAIS WP 
; 
; 
BB 
; 
; 
CLOSTR? LB 
LD 
CP 
P 
LD 
CP 
P 
LD 
P 
; 
SLOSTR? CALL 
LD 
LD 
CALL 
LB 
LB 
LD 
P 


+ 
' 
+ 
Y 
* 
? 
* 
’ 
, 
’ 


D-3. 


OH 
2,RND2 


OH + XOR BITS 15 AND 8 


ZyRNDS 


xe o> 


(RNDSED) » HL 


AL + RETURN RESULT IN REG A 


OFF OFF, OFF, OFF , OFF } JUST THE LEFTOVER SPACE 


OFF OFF, OFF, OFF , OFF 


OFF OFF ,OFF 


NMISER } VECTOR THROUGH HERE ON NONMASKABLE INT 


03C ,0AB,016,023,014 


HL, (STFADR) } THIS IS THE COLD START ENTRY POINT 
AyL } IF FIRST 16 BITS OF CARTRIDGE IS 
055 + OAASS THEN JUMP TO THE ADDRESS 
NZ,SLOSTR + IN THE CARTRIDGE STORED AT 800A 
AsH 

OAA 
NZ,SLOSTR 
HL» (CSTART) 
(HL) 


+ ELSE 60 THROUGH SLOW START INTRO 


QUIETV 
HL 00033 
(RNDSED) » HL 


+ HERE IF NO FAST JUMP TO CARTRIDGE 


> CLEAR ALL SHADOW REGISTERS 


ere 8 ee oD A DE FOF EE GRR TE RE ee 


biteietersecsbecessssessstsrtstessttcrtcirstescrsetescses 








206 
207 
208 
209 
210 
2it 
212 
213 
214 
215 
216 


218 


0098’ 
0099’ 
009A’ 


0098’ 


09D’ 
009E’ 
O09F’ 
O0A0’ 


O0A1’ 
Q0A2’ 


0043’ 
00A4’ 
OAS’ 
O0A6’ 


00A7’ 
0048’ 
O0A9’ 
OOAA’ 
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SE 
23 
56 
23 


ES 
7B 
B2 
C2 0087’ 


01-Dec-86 


on” SOO Se ES He HE HS EH HO HE NE Re HH EO HO He He OO He HO He Ee Ee He 


7 


a we we Oe Se 
rons 
oo 


Si et Td 
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ROUTINE TO COPY PARAMETERS FOR THE DISPATCH SUBS 


BC POINTS TO A PARAMETER DESCRIPTOR TABLE 

DE POINTS TO AN AREA TO-STORE THE PARAMETERS 

BEFORE THE CALL, TOP OF STACK POINTS TO A LIST 
OF ADDRESSES OF PARAMETERS TO BE COPIED 


THE FIRST 16 BITS OF THE DESCRIPTOR TABLE HOLDS THE 
NUMBER OF DESCRIPTORS (14 BITS EACH), 


EACH DESCRIPTOR HOLDS THE NUMBER OF BYTES TO BE 
APPENDED TO THE RAM AREA (POINTED TO BY DE) 
FROM THE NEXT ADDRESS IN THE ADDRESS LIST. 


IF A DESCRIPTOR IS NEGITIVE, THEN THE NEXT 16 BIT WORD 
FROM THE ADDRESS LIST IS APPENDED TO THE RAM 
AREA. THE VALUE OF THE NEGITIVE DESCRIPTOR MAKES 
NO DIFFERENCE. 


IF AN ADDRESS FROM THE ADDRESS LIST IS ZERO, THE NEXT 
16 BITS IN THE LIST ARE TAKEN AS A POINTER 
TO THE PARAMETER ADDRESS. (NOTE? THIS IS DONE BEFORE 
THE CHECK FOR NEGITIVE DESCRIPTOR) 


POP HL ; SWAP RET ADDR AND PARAMETER- 

EX (SP) ,HL + ADDRESS-LIST-POINTER. (PALP) 

PUSH «HL 

LD Ay (BC) > HL=(BC), BC=BC+2, (FIRST. 

LD LA } TABLE ENTRY, NUMBER OF 

INC BC + PARAMETER DESCRIPTORS. (NPD)) 

LD Ay (BC) 

INC BC 

LD HyA 

EX (SP) ,HL ; SWAP PALP AND NPD 

PUSH =o DE. + SAVE RAM AREA ADDRESS. (RAA) 

AT THIS POINT PALP IS IN HL AND THE STACK IS { RETADDR,NPD,RAA } 
WHERE RAA IS ON TOP. 

LD E, (HL) + DE=(PALP) PALP=PALP+2 

INC HL ; (THIS IS A PARAMETER ADDRESS (PAL)) 

LD D, (HL) 

INC HL 

PUSH =H > SAVE PALP 

LB AvE ; JUMP IF PARAMETER ADDRESS NOT ZERO 

OR B 

P NZ ,PCPY2 


IF A PARAMETER ADDRESS IS ZERO, THEN PICK UP THEN NEXT NUMBER 
AS A POINTER TO THE ADDRESS OF THE PARAMETER TO BE 
COPIED TO RAM. 
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225 ; 

228 = OOAD”. «EL POP HL | 

227 ——«OOME’ SE LD EE, CHL) } DE=(PALP) ,PALP=PALP#2 

228 © (OOAF’. 23 INC HL 

229 00BY’ 56 LD Dy (HL) 

230 0B’. 23 INC HL 

Zt = 00R2”ES PUSH HL 

232 ; 

23 OBS’ EB EX ——DEyHL } HL=DE 

234 «= 00BA’ SE LD EE, (HL) } DE=(HL) 

235 OORS’ «23 INC HL 

236 «= 00RK’ 56 LD sD, CHL) 

237 ; 

238 ©0087” (03 PCPY2: INC BC } ASUPPER 8 BITS FROM DESCRIPTOR 
239 «© OOBB’ OA LD Ay (BC) 

240 ; 

241 00RD’ 07 RLCA } JUMP IF DESCRIPTOR NOT NEGITIVE 
242 OORA’. «D2 O0DA’ JP NC, PCPY4 | 

243 | ; 

244 ; IF A DESCRIPTOR IS NEGITIVE, THEN THE 16 BIT PARAMETER IS 
245 ; IS IN THE ADDRESS LIST ITSELF (I.E. NOT ITS ADDRESS) 
246 ; 

247 ; STACK={ RETADDR, NPD, RAA, PALP? 

248 ; 

249 00RD’ (03 IWC BC } POINT AT NEXT DESCRIPTOR IN TABLE 
250 OORE’ «EL PIPL , 

251 © OORF’. «EJ EX (SP), HL } GET AREA ADDRES 

252 0000’ 73 LD (HL } SAVE P2 THERE 

23 00C1’ 3 IW HL 

254 © 00C2’--72 LD (HL) D 

255 00C3’ «23 IWC HL 

256 ; 

257 ; 

258 © 00cd’ sD PCPY3: POP DE } DE=PALP 4 
259 ©0005’ «EB EX (SP), HL } PUT AREA POINTER BACK, GET NPD IN HL 
260 © 00C6’—-28 MC OL } SEE IF WE ARE DONE WITH LIST 

261 © 00C7’"AF YOR A + AO 

262 © 00CB’—«BC cr OK 

263 © 00C?’—« C2: 0000’ BP NZ,PCPYA ; JUMP TO PCPY4 IF HOT DONE 

264 = O0CL’” BD cP OL, : 

265  00CD’ CA 0006’ BP 1,PCPYS } ELSE JUMP TO PCPYS TO EXIT 

266 4 i 

267 00D0’ EB PCPY4: EX (SP yHL } PUSH NPD UNDER RAA 

268 «= OODLES PUSH HL 

269 ; 

270 ©0002’ EB EX DE HL } PUT PALP RACK IN HL 

271 0003" —C3 0003” PF OPCPY1 } GO PROCESS NEXT PARAMETER ADDRES 
272 ; 

273 ~=—(00DK’sEL PCPYS! POP = HL } HL GETS RAA 

274 = 0007" EX DE, HL } DE GETS RAA, HL GETS PALP 
275 (0018 EX (SP) HL } HL GETS RETADDR, TOP OF STACK=PALP 
276 «= 00D” ED CHL } EXIT 

277 ; 

278 «=—«OODA’ «EL PCPYS: POP = HL } HL GETS PALP, DE HAS PARAMETER ADDR 
279 «= 00D’ «£3 | EX (SP) yHL } HL GETS RAA, PLP GOES TO TOP 
280 00DC’—«ES PUSH = HL } NOW RAA ON TOP 














CMON. MAC 

281 

282 00D’ 
283 OODE’ 
284 OODF’ 
285 Q0E0’ 
286 QOE1’ 
287 

288 00E2’ 
289 Q0E3’ 
290 O04’ 
291 

292 O0ES’ 
293 Q0ES’ 
294 00E7’ 
295. —«O0E8” 
2% 

297 00E9’ 
298 OOEA’ 
299 OOEB’ 
300 O0EC’ 
301 OOED’ 
302 00FO’ 
303 OOF 1’ 
304 

305 O0F4’ 
306 O00FS’ 
307 

308 OOF8’ 
309 O0F9’ 
310 

311 

312 

313 

314 OFC’ 
315 OOFF’ 
316 0101’ 
317 

318 0103’ 
319 0106’ 
320 0107’ 
321 0108’ 
322 0108’ 
323 

324 0100’ 
325 010€’ 
326 O10F’ 
327 Oli’ 
328 0113’ 
329 
3300114” 
331 0117’ 
332 0119’ 
333 

334 o11c’ 
35 O1LD’ 


336 O11E’ 
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2B 
AF by 
2 OFA’ 
BC 

CA OOF’ 


E3 
C3 O0ES’ 


Ei 
C3 0004’ 


DD 7E 07 
FE 00 
20 09 


BD 7E 05 
3D 

C8 ; 
DD 77 05 
C9 


DD ES 
E 
1E 06 
16 00 
19 


CB 0190’ 
20 15 

CD O1A6’ 
2B 

7E 

3D 


01-Dec-80 
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; ‘ 
RRCA } PUT UPPER 8 BITS OF DESCRIPTOR 
LD Hy } INH | 
DEC OBC } THEN PICK UP LOWER IN L 
LD Ay (BE) 
LD LA 
; 52.2.3 
EX (SP) yHL } HL GETS RAA, DESCRIPTOR GOES TO TOP 
WBC } POINT BC AT NEXT DESCRIPTOR 
IWC (BC | 
i 
PCPY7: LD Ay (DE) } (HL)=(DE) pHL=HL #1 pDESDE+1 
LD (HLA 
IVC HL 
Inc ODE 
; 
EX (SP) y HL } GET DESCRIPTOR IN HL 
Bec OL } DECREMENT IT 
XOR OA ; JUMP IF ROT ZERO TO PCPYB 
cr Ok 
JP NZ,PCPYB 
| 
PZ, PCPY? + GOTO PCPY? WHEN DONE WITH THIS PARAM 
; 
Pepys: EX (SP) yHL ; PUT DESCRIPTOR BACK ON STACK 
PF OPCPY? } GO COPY ANOTHER BYTE 
; . 
PCPY?? POP HL ; HL GETS RAA 
PPCPYS } SEE IF DONE WITH PARAMETER LIST 
H ed 
; 
' 
} SEREeaereasaeseaeeaaseaseassest3 
SCHED2! LD Ay (IX4007) 
cp 000 3 JUMP IF (IX+7) NOT 0 
RZ $4008 + 0010C 
? 
LD ApCIX#005) ©}: DECREMENT (1X45) UNLESS IT =1, 
mc OA } THEN EXIT 
RT 82 
LDC TX#005) 9A 
RET 
' 
PUSH IX } HL=IX+6 
Pop HL 
LD E006 
LD D000 
ADD HL DE 
; 
CALL DECABL } DECREMENT THE LOWER 4 BITS OF (1X46) 
JR NZ, $4017 } 0012E 
CALL = MVABUL } IF ZERO, RESTORE BITS FROM UPPER 4 
; 
Dec OAL } EXIT IF (1X#5)=1 
LD AHL) 
MC OA 
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390 
391 
392 


O1IF’ 


0120’ 
0121’ 
0122’ 
0123’ 
$126’ 
0129’ 
012A’ 
0120’ 
012€’ 


O12F’ 
0132’ 
0134’ 


0135’ 
137° 
0138’ 
013A’ 
0130’ 


0130’ 
0140’ 
0142’ 


0145’ 
0146’ 
0149’ 
0148! 
014C’ 
O14E’ 


O14F’ 
0150’ 
6151’ 
0152’ 
0153’ 
0154’ 


0156’ 
0157’ 


0158’ 
0159’ 
0158’ 


015C’ 
O15D’ 
O15F’ 
0161’ 
0163’ 
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c8 


77 
28 
2B 


DB 7E 07 — 


CD O1B1’ 
23 

CB 9% 
Fé-FF 
C9 


DD 7E 08 
FE 00 
C3 


DD ES 
Ei 
16 00 
1E 09 
19 


CD 0190’ 
20 21 
CD 0146’ 


2B 

CD 0190’ 
28 16 
7E 

Eé FO 
oF 


28 
2B 
2B 
2B 
7E 
Eé FO 


83 
SF 


7E 
ES OF 
B3 


77 
Fé FF 
18 02 
36 00 
C9 
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RET Z 
$ . 
LD (HL),A 
BEC HL 
~ BEC HL 
uD Ae (1X4007) 
CALL ADDIS 
INC HL 
RES 2, (HL) 
OR OFF 
RET 
§ —-——-—--—-—-------—-----— 
’ 

HE tt esessresresessstesee ees $e] 
SCHED!: LD Ay (1X4008) 
cP 000 
RET Zz 

’ 
PUSH IX 
POP HL 
LD B,000 
LD E,009 
ADD HL,» DE 

’ 
CALL  DEC4BL 
JR NZ, $4023 
CALL «= MV4BUL 

’ 
DEC HL 
CALL «= DEC4BL 
JR Z,$#018 3 00161 
LB Ay (HL) 
AND OFO 
LD E,A 

’ 
DEC HL 
BEC HL 
tec HL 
EC HL 
LD Ap (HL) 
AND OFO 

’ 
ADD AvE 
LB EA 

' 
LD Ay (HL) 
AND OOF 
OR E 

; 
LB (HL) A 
OR OFF 
JR $1004 3 00163 
LD (HL) ,000 
RET 


ae ae 


20 ee eee oe ewe nemo 


—D-7 


+ ELSE DEC (1X45) 

+ AND ADD (1X47) TO (1X43) 
+ RESET BIT 2 OF (IX#4) 

+ ASOFF CARRY=0 


3 IF (1X+8)=0, EXIT 


+ ELSE HL=IX+9 


} DECREMENT THE LOWER 4 BITS OF (IX+9) 
+ 001463 
+ IF ZERO, RESTORE FROM UPPER 4 BITS 


; AND DECREMENT LOWER 4 BITS OF (IX+8) 
IF NOT ZERO PICK UP UPPER 4 BIST OF 


' 
+ (IX+8) AND PUT INE 


+ GET UPPER BITS OF (IXt4) 


+ ADD TOE 


+ THEN OR IN THE LOWER 4 OF (IX+4) 


$ PUT BACK IN (IX+4) 
5 SET A=0 























442 


445 


447 
448 


0164’ 
0167’ 


01869" 


0168’ 
O16C' 
0160’ 
O16E’ 
O16F’ 
0171’ 
0172’ 
0174’ 


0175’ 
0178’ 
O17A’ 
0178’ 
017D’ 
0180’ 
0182’ 


_ 0183" 


0186’ 
0188’ 
0189’ 
018A’ 
0188’ 
0180’ 
18D’ 
018F’ 


0190’ 
0192’ 
0194’ 


019A’ 


0198’ 
0190’ 
OL9F’ 
O1A1’ 
O1A2’ 
O1A4’ 
0145’ 


O1A6’ 
0147’ 


HACRO-90 3.4 


BD 7E 04 
CB 41 

28 04 

OF 


OF 
OF 
Eé OF 


D3 FF 


BD 7E 03 
Eé OF 

B2 

D3 FF 
DD 7E 03 
E& FO 
37 

DD 7E 04 
E6 OF 
B2 

OF 

OF 

OF 

OF 

D3 FF 


Zzas 


S2BaAkSH 
S 


Eé FO 


0i-Bec-80 
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$ SSSRSAELEATATAKES ITIL ATT 

















AMP.NZ! LD Ay (IX4004) 
2 RP age 

JR, SDI 

RRCA 

RRCA 

RRCA 

RRCA 
SNDIS AND. (OOF 

oe |S 

QUT = (AUDIO),A 

RET 
; 
’ 
MBrissitecsssstccssissstest ts) 
SNDFRO? LD Ay (IX+003) 

AND (OOF 

oR OD 

OUT {AUDIO A 

LD Ay (TX4003) 

AND OFO 

LD ODA 

LD Ap (TX#004) 

AND (OOF 

o OD 

RRCA 

RRCA 

RRCA 

RRCA 

OUT —-(AUDIO),A 

RET 
? —— 
; ; 
PB rississcessstettrriist isis 4 
DECABL! LD Ay 000 

RRD 

SUB (Ot 

PUSH AF 

ALD 

POP AF 

RET 
H oven enema enae 
’ 
MB riecssisstecsssrtitecsti its] 
DECABH! LD Ay 000 

RLD 

SUB (OO! 

PUSH AF 

RRD 

POP AF 

RET 
H — — 
' 
Mressstictocrssrtinrticies 
MVABUL! LD Ay (HL) 

AND = OFO 


a ee 


we ae 


¢ 
’ 
’ 
r 


NT 
URN 


D-8 


IF C HAS THE UPPER CODE FOR AN 
ATTENUATION REGISTER THEN OR IN 
THE UPPER 4 BITS OF TABLE ENTRY 
(1X44), ELSE IT IS A NOISE CONTROL 
BYTE SO SEND LOWER 4 BITS. 


REG C SUPPLIES THE UPPER BITS 


PUT OUT FREQUENCY FROM TABLE 
(IX+3), (IX+4) TO FREQ REGISTER ADDRESSED 
IN UPPER BITS OF D. 


DECREMENT THE LOWER 4 BITS OF (HL) 
AND RETURN FLAGS 


THE UPPER 4 BITS OF (HL) 
FLAGS 


REPLACE THE LOWER 4 BITS OF RAM (HL) 
WITH THE UPPER 4 BITS OF SAME 














O1A9’ 
O1AA’ 
O1AB’ 
O1AC’ 
O1AB’ 
O1AE’ 
O1AF’ 
0130’ 


0181’ 
0183’ 
O1BS’ 
0187’ 
0189’ 
O1BA’ 
0158’ 
O1BC’ 
O1BD’ 
O1BE’ 
O1BF’ 
0100’ 


01Ci’ 
0104’ 
0108’ 
0106’ 
0107’ 
19’ 
O1CB’ 
O1CD’ 
01CE’ 
O1CF’ 
0100’ 
Omni’ 
0102’ 
o1D4’ 


0105’ 
0108’ 
O1DB’ 
o1nc’ 
O1DE’ 
O1DF’ 
O12’ 
O1E4’ 
O1E5’ 
O1E8’ 
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SYSRABARs 


2A 7020 
2B 

2B 

48 

06 00 
CB O01 
CB OL 
09 


23 
3é 


DBD E 
c? 


DD 75 01 
DD 74 02 


£6 3F 
47 

DD 7E 00 
Eé CO 
BO 

DD 77 00 


01-Dec-80 PAGE 1-8 
LD Br 
RRCA 
RRCA 
RRCA 
RREA 
R 8B 
LD (HLA 
RET 


7 20 “eo 


y SESSESAELTTTATAE TSS SIT T7553 


MADDI6: LB B,000 
- BIT 7+h . 

JR Z,MADD1 
LD By OFF 

MADDI: ADD Ay (HL) 
LB (HL) »A 
INC Hi 
LD Ay (HL) 
ADC AyB 
LD (HL) A 
pec HL 
RET 


we we we 
& 


AGET: LD HL, (APOINT) 
Dec HL 
pec HL 
LD CB 
LB B, 000 
RLC ct. 
RLC C 
ADB HL BC 
LD Ey (HL) 
IW OL 
LD By (HL) 
PUSH =sDE 
POP Xx 
RET 


we te 


$ SBRSREAAELITALTAT TAIT I5 37 
PSET1: (1X#001) »L 
(1X#002) »H 

A, (DE) 

O3F 

B,A 

Ay (1X4000) 

0co 

B 

(1X#000) »A 


RGSEGCZCGG 


oer eres ere a 


SRAIEAILALIA ALTA S IAAT 


\ 
Petesesectesetcs test eee es 293 


+ ADD A TO THE 16 BIT MEMORY 
} LOCATION @HL : 


SIGN EXTEND FOR NEGITIVES 


> GET A 16 BIT VALUE FROM AN ARRAY 

} POINTED TO BY (APOINT), WITH INDEX 
} IN REG B THAT STARTS AT 1 AND 

+ INCREMENTS BY 1, 

+ PUT THE RESULT IN IX 


3 PARAMETER SET UP ROUTINE 
+ LOAD HL @ (IX#1) 
> GET 6 BIT INTO B BY @ DE 


> OR IN TWO UPPER BITS FROM @1X 
> THEN PUT BACK @IX 


CHON. MAC HACRO-80 3.4 O1-Dec-80 PAGE 1-9 —e | D-10 











505 + GET BACKLINK IF THERE IS ONE 
506 0189’ «= DD 7E 00 GETBAK! LB Ay (IX#000) } 1X POINTS AT CONTROL TABLE 
507 OLEC’. = FE FF cP OFF t IF (IX+0)=0FF IT’S EMPTY 
508  O1EE’ C8 RET =soaZ +} EXIT 

509 ; 

510s O1EF’ «E46 OF AND s«O3F + LOWER 6 BITS ARE FUNCT CODE 
Sil O1F1’ FE 3€ cp 03E * IF NOT AT 3E, EXIT 

512. 01F3’ C0 RET NZ 

513 : 

514 01F4’ DD ES PUSH IX + ELSE SET UP PARAMETERS IN DE AND HL 
515 O1F6’—s El PoP HL 

518  O1F7’ 23 INC = oHL 

517 O1F8’ «SE LD Ey (HL) 

518 O1F9’ «23 INC HL 

519 O1FA’ «56 LD D, (HL) 

520.  O1FB’ EB EX DE yHL + DE=IX#3 HL=(IX#1) 

521 O1Fe’ = C9 RET 

522 ; 

§23 ; 

524 O1FD’ ~—:0002:0001 DIBDAT! DW 2yle2 

525 0201’ 0002 

526 ; 

527 PB iteccsterssssseteitestccrss| « 

528 0203’ «Ol ~OLFD’ SDINIT! LD BC, DIBDAT $ DISPATCH # 1B 

529 0206’ «ss 11 73BA LD DE,P.AREA 

530 0209" «CD. 0098’ CALL PCOPY 

531 0200’ ~—s-3A 73BA LD Ay (P. AREA) 

532 020F’ 47 LD ByA 

533. 0210’ «2A 73BB LD HL, (P AREAL ) 

534 ; 

555 H 

536 0213’ ~=—-22-: 7020 DINIT!: LD (APOINT) HL ©}: DISPATCH # 2F 

5377s «0216’—23 INC HL + INITIALIZE DATA STRUCTURE 
538 (0217's 23 INC HL $ POINT APOINT AT START OF LIST OF TABLE 
5390218’ SE LD E, (HL) * POINTERS, 

540 0219-23 INC HL $ HL GETS ( (APOINT) #2 ) 
541 021A’ 56 LD D, (HL) $ DE GETS 000A 

542 O21’ EB EX DE, HL 

543 0210’ 1E OA LD E,00A 

544 O21E’ 16:00 LD 3,000 

545  0220'—s36 FF DINI: §=LD (HL) OFF * SET EVERY TENTH BYTE 10 FF 
546 0222" 19 ADD = swHL DE 

547. 0223's 10 FB DINZ DIN + FOR B BLOCKS . 

548 0225’ 36.00 LD (HL) ,000 * CLEAR THE LAST ONE 

549 ; 

550 ; THIS CODE INITIALIZES THE AUDIO DATA STRUCTURE 

551 ; 

552. 0227" ~=—-21-024C’ LD HL» SNDOFF * SET POINTERS TO POINT AT NUL PROGRAM 
553. 022A’—s 22-7022 LD (NOTSEP) ,HL 

554 0220’ «= 22 7024 LD (TONE LP) »HL 

555 0230’ —«—«-22- 7026 LD (TOME2P) » HL 

556 0233’ 22 7028 wD (TONESP) » HL 

557 0236’ «SE FF LD Ay OFF 

558 0238’ «32-7028 LD (NOICSH) »A + UPDATE NOISE CONTROL SHADOW 


A 
aod 
we 


DROP INTO AUDIO INIT ROUTINE 


e 
o 
Ord 
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561 ; 

562 ; 

563 0238’ «SE OF QUIET: LD A, O9F } DISPATCH # 27 

564 02303 FF QUT (AUDIO),A 

565  023F’ 3E BF LDA, OBF 

566 0241013 FF OUT (AUDIO? ,A 

567 0243’ 3E OF LD A,ODF 

568 0245’ «3 FF OUT (AUDIO),A 

569 0247’ 3E FF LDA, OFF 

570 0249013 FF OUT (AUDIO), A 

571024’ C9 RET 

572 H -—-——-——— 

573 ; 

574 0240’ FF SNDOFF! DB (OFF } THE NUL SOUND PROGRAM. 
575 ; 

576 ; 

577 024D’ 0001 0001 DICDAT! DW ty! 

578 ; : 

579 RB rtsccsssttscssttitsteisrtts) 

580 0251’ OL O24’ $NEWTB! LD BC DICDAT } DISPATCH # IC 
581025411 73BA LD DEP. AREA 

582 0257’ CD 0098" CALL COPY 

583 025A’ 3A 73BA LD Ap (PL AREA) 

5840250’ 47 LD By 

585 ; 

56 ; 

587 0256’ CS NEWTB! PUSH BC } DISPATCH # 30 

588  025F’ CD OLCt’ CALL © AGET } GET CONTROL TABLE POINTER FROM 
589 -0242’««DD 7E 00 LD sy (1X#000) ARRAY BY INDEX IN B 

590 0285’ «ES 3F AND (O3F + GET THE FUNCT CODE FIELD 
591 0267’ Ct PoP BC 

592 0268’ BB cr OO : 
593 0269" CB RET =o } RETURN IF FUNCT FIELD MATCHES INDEX 
594 ; 

595 026A’ «BD 70 00 LD (1X#000),B = ELSE HAKE IT MATCH 

596 0260’ 28 DEC OL } POINT HL AT PRIEVIOUS TABLE POINTER 
597 026E’ «8 eC OL . 
598 026F’ «56 LD By CHL) } GET POINTER 

599 0270" 2B pec OL 

600 0271’ «SE LD Ey (HL) 

601 0272’ «MD 73 01 LD = (IX#001),E ©} BACK LINK THIS TABLE 





602 0275’ =: BD 72 02 LD (IX#002) 9 


603 0278’ «CD: O35F’ CALL  SNDFN + GO DO ATTACHED SOUND TABLE FUNCTION 
604 0278’ = CD 0295’ CALL —_UPSTRM * UPDATE STREAM POINTERS 

605 0278’ 9 RET 

606 } ----------—----—----------- 

607 , 

608 ; PB stessstsstesssssestirs sets s 

609 027F’ 08 OF UPTABS LD By 001 + DISPATCH # 31 

610 0281’ «CD O1C1’ CALL AGET $ GET POINTER TO SOUND TABLE AREA IN IX 
éll ; 

612 0284’: 3E 00 SPLOOP! LD A, 000 + SEE IF AT END OF LIST 

613 0286’ —sDD BE 00 cP (1X+000) 

614 -0289"—sCB RET =o * IF SO RETURN 

815 ; 


616 0284’ CD 0206’ CALL = PROCTB + ELSE UPDATE TABLE 





670 
671 
672 


0283’ 
028F’ 
0291’ 
0293’ 


0295’ 
0297' 
0294’ 
0290’ 
0240’ 
02A3’ 


020’ 
0248’ 


O2AB’ 
O2AE’ 
0280’ 


0282’ 
0284’ 


0286’ 
0289’ 
02BB’ 
0280’ 
02BD’ 
O2BE’ 
O2BF’ 
02C1’ 
o2c4’ 


0205’ 
0207’ 
0208’ 
0209’ 
020A’ 


02CB’ 
02CD’ 
O2tr’ 
0201’ 


0203’ 
0205’ 


0204’ 
0209’ 
0208’ 
20C' 
O2nE’ 


MACRO-80 3.4 


1£ OA 
16 00 
DBD 19 
18 EF 


BD ES 

21 0240’ 
22 7022 
22 7024 
22 7026 
22 7028 


06 O1 
CB 01C1’ 


DD 7E 00 
28 21 


FE FF 
28 15 


DD 7E 00 
£4 CO 


07 

07 

oF 

16 00 
21 7022 
19 


DD ES 


73 
23 


1E 0A 
16 00 
DD 19 
18 DB 


DD El 


CD O1E9’ 
FE FF 
C8 

FE 3E 
20 06 


01-Bec-80 


SBoG z 


4 ae we 
~~ 


| 
Bese S93 S96 ze GEGGGE 


we 


<a 
° 


«we 


<e 
e 
> 


me 


wEGG GESg_ ESGe 


ue 





1-11 


E,00A 
B, 000 
IX, BE 
SPLOOP 


IX 

HL» SNDOFF 
(NOISEP) HL 
(TONELP) » HL 
(TONE2P) »HL 
(TONESP) » HL 


ByO01 
AGET 


Ay (1X4000) 
000 
7 ,UPSXIT 


OFF 
7) NXTAB 


Ay (1X4000) 
co 


ErA 

B,000 

HL »NOISEP 
HL,DE 


IX 
(HL) ,E 
(HL) »D 
E,00A 
B,000 
IX,DE 
USLP 


IX 


OSE 
NZ, INCTIM 





D-12 


+ ADVANCE 10. BYTES TO NEXT TABLE 


UPDATE THE SOUND STREAM POINTERS 
POINT AT OFF FOR NO SOUND 


2 oe 


+ GET MASTER SOUND TABLE POINTER 


+ GET FUNCT CODE FOR THIS TABLE 
} IF ZERO, END OF LIST 


$ IF OFF, TABLE IS EMPTY 
; GO TO NEXT 
* THE TOP 2 BITS OF THE FUNCT CODE 


+ SELECT ONE OF THE SOUND STREAM 
3 POINTERS. 


+ ADD 10. TO ADDRESS TO GET TO NEXT 
; CONTROL TABLE. 


$ LOOP THROUGH THE REST 


; RESTORE IX WHEN DONE 


} GET BACKLINK IF POSSIBLE 
} EXIT IF TABLE EMPTY 


+ IF FUNCTION CODE IS NOT 3E 
} GO INCREMENT TABLE TINERS 





CANON. HAC 


673 


a 
co 
> 


02€0’ 
02E2’ 
024’ 
025’ 


0256’ 
O2E9’ 
O2EC’ 


O2EE’ 
02F 1’ 
02F2’ 
02F5’ 
02F 6’ 
02F9’ 
Q2FA’ 
O2FC’ 
Q2FF’ 


0300’ 
0302’ 
0304’ 
0306’ 
030A’ 
0300’ 
O30F’ 
0311’ 
0313’ 
0317’ 
031A’ 
OsIC’ 
OS1E’ 
0320’ 
0324’ 


0327’ 
0329’ 
0328’ 
032F’ 
0332’ 
0333’ 
0335’ 
0337’ 


0339" 
0330’ 


O33F’ 
0341’ 


MACRO-B0 3.4 


1E 07 
16 00 
19 


3E OF 

OE 90 

16 80 

DD 2A 7024 
CD 034E’ 
3E BF 

OE BO 

16 AQ 

DD 2h 7026 
CD O34E’ 
3E DF 

OE DO 

16 CO 
DD 2A 7028 
CD 034E’ 


3E FF 

OE FO 

DD 2A 7022 
DD SE 00 
ic 

20 04 

BS FF 

18 14 


CD 0164’ 
DD 7E 04 


ES OF 
21 702A 


Ol-Dec-80 PAGE =: 1-12 


LB E,007 
LD B,000 
ADD HL» DE 
JP (HL) 


? 

INCTIMS CALL = SCHED 
SCHED2 

NZ, TMEXIT 


~~ 


CALL 

JR 

LB Ay (1X4000) 
PUSH = AF 

CALL = SNDFN 

POP BC 

LD Ay (TX#000) 
cP B 

JR Z)TMEXIT 
CALL _- UPSTRM 

RET 


ne eee meer en ae aneeee aeen-en san on eeepaen eae ee mate orem 


pebssheces sects settee 2333 8 


BY POINTERS TO TABLES. 


CD we we we we we eo we we 


= 
oo 


SGGGGS 
F 


A, O9F 

C,090 

D,080 

IX, (TONELP) 
SNDOUT 

Ay OBF 

C080 

D,OA0 

IX, ( TONE2P) 
SNDOUT 

Ay ODF 

C,0D0 

D,0CO 

IX, (TONES) 
SNDOUT 


26666 


rm 


we 


A, OFF 

C,0FO 

IX, (NOISEP) 
Ey (1X+000) 
E 

NZ »HZAMP 
(AUDIO) A 
SNDEX 


@ SSeeZ5GG5 REEG6 


AMP NZ 


Ap (1X4004) 
OOF 
HL yNOICSH 


GES 


' 
' 
' 
, 


t 
' 


N 
? 


¢ 
’ 


D-13 
IF FUNCT CODE IS 3E, GO 00 
ROUTINE AT (IX+1)+7 


GO DO FUNCTION 


SEE IF FUNCT CODE CHANGED 


IF SO GO UPDATE STREAM POINTERS 


THE SOUND ROUTINE UPDATES ALL REGISTERS IN THE SOUND CHIP 


IF THE FIRST BYTE OF THE TABLE 


» 
? 
’ 
U 
e 
U 


2 ee 


a i 
ne 


~e 


$ 
’ 


' 
? 
7 
' 


* 
, 
* 
, 


IS OFF, THEN THE FUNCTION IS TURNED OFF. 


DISPATCH # 00 
TONE 1 AMP 
TONE 1 FREQ 


a4 
mm 


a3 


NOISE AMP 
IF FLAG AT FF, TURN OFF 


THEN EXIT 
ELSE SET NOISE AMPLITUDE 


SEE IF SAME CONTROL CODE AS 
LAST TIME 














760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
714 
7” 


0344’ 
0345’ 
0347’ 
0348’ 
034A’ 
0340’ 


O34E' 
0351’ 
0352‘ 
0354’ 
0336’ 


0358’ 
0358’ 
035E’ 


O35F’ 
0362‘ 
0364’ 


0365’ 


0369’ 
034C’ 
036F’ 
0370’ 


0371’ 
0373’ 


0375’ 
0376’ 
0378’ 
0379’ 
0370’ 


037F’ 
0383’ 
0386’ 
038A’ 
0386’ 


0391’ 
0393’ 


0395’ 
0397’ 


0399 
039A’ 
0390’ 


MACRO-80 3.4 


Q 


6 


EO 
0164’ 


BSEBRIUBR 


DD SE 00 
ic 

20 04 

D3 FF 

18 06 


CD 0164’ 
CD 0175’ 
C9 


DD 7E 00 
ES 3F 
FS 


DD 36 00 FF 


DD 6E 01 
DD 44 02 
7E 
47 


CB OF 
28 ic 


CS 

£6 IF 
23 

DD 75 01 
DD 74 02 


DD 36 04 FO 
DB 77 05 
DB 36 07 00 
DD 36 08 00 
C3 0461’ 


CB 67 
28 OF 


CB SF 
28 05 


Ci 
CD O25E’ 
c9 








01-Dec-80 PAGE =: 1-13 
md (HL) 
R Z,SNDEX 
LD (HL),A 
LB C,0€0 
CALL = AMP.NZ 
SNDEX? RET 
:—-——— 
; 
$ SSESTLATATTAAEATT ALTA LITT 
SNDOUT? LD E,(1X+000) 
Inc E 
JR NZ, SNDCD 
OUT (AUDIO) A 
BR SNDR 
; 
SNDCD?: CALL  AMP.NZ 
CALL  SNDFRO 
SNDR? = RET 
; eceeee 
’ 
¥ SEKRTRESTATTATTA LTT EEETIT I 
SNDFN3 LD Ap (1X4000) 
AND 03F 
PUSH . AF 
? 
LD (IX4000) , OFF 
; 
LD Ly (1X#001) 
LD Hp (1X#002) 
LD Ay (HL) 
LD B,A 
; 
BIT SrA 
RR 7,B4TST 
; 
PUSH =- BC 
AND O1F 
INC HL 
LD (1X#001) 9b 
LD (1X#002) »H 
’ 
LD (1X4004) ,OFO 
LD (1X#005) A 
LD (1X4007) 000 
LD (1X4008) 000 
wP BXXIT 
; 
B4TST: BIT 4,A 
SB Z,NOB4 
; 
BIT 3A 
SR Z,NOBS 
? 
POP BC 
CALL =~ NEWTB 
RET 


. 
' 
* 


Hy 


‘ 
? 


ae te ae Ee ew 


2 ae 


) 
! 


’ 
' 


* 
’ 


D-14. 


IF SO DON’T CHANGE IT 
ELSE SAVE CONTROL CODE 


SET NOISE CONTROL 


IF THIS FLAG IS NOT FF THEN 
UPDATE AMP AND FREQ 

GO USE UPPER BITS IN C AND D 
ELSE JUST SEND A OUT 

EXIT 


SEND AMP OR NOISE REG 
GO SET THE FREQUENCY 


GET FUNCT FIELD AND SAVE IT 


MARK EMPTY 


GET LAST FUNCT CODE IN B 


+ ADVANCE LINK 


} REINIT 
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2338988 


a333 


808 


810 
B11 
B12 
813 
814 
B15 
816 
B17 


819 


832 
834 
837 
838 


840 


O39E’ 
O3A0’ 
O3Al’ 
0344’ 
O3A6' 
0348’ 


OSAA’ 
O3AC’ 


O3AE’ 
O3AF’ 
O3B0 é 
O3B1' 
0384’ 
OSES’ 
0386! 
0339’ 


O3BA’ 
O38C’ 


OSBD’ 
O3BE’ 


0300’ 
03C3’ 


03ca4’ 


0304’ 
0308’ 
O3CA’ 
O3CC’ 
O3CF’ 
0300’ 


0302’ 
0303’ 
03D4’ 
0306’ 
0308’ 


O3DA‘ 
O3DB’ 
0300’ 
O30’ 
O3BE’ 
O3E1’ 


O34’ 
O3E5’ 
O38’ 
O3EB’ 


HACRO-B0 3.4 


3 FF 
FS 
C3 0461’ 


£6 3C 
FE 04 
20 28 


FD Et 
FD ES 


CS 
23 
SE 
DD 73 01 
23 
56 
DB 72 02 
23 


FD ES 
Fi. 


DS 
FD El 


11 0306’ 
BS 


FD E9 
16 00 


1€ 07 
FD 19 


FD E9 


11 0461? 


01-Bec-80 


-— 


<a 


ae 


we 


<e 


we 


BSIVRT3 


~~“. 


“2 


PAGE 


Z ZF SVE zs 


GREER S582 = BNECe “geges ss) Be 38 SB 


1-14 | . D-15 


Ay OFF 
AF 


BXXIT 


03C 
004 
NZ, BSIVI 


ly } COPY CURRENT FUNCT CODE TO IY 
IY 


BC > COPY BACKLINK FROM PRIEVIOUS 
HL + TABLE 

E, CHL) 

(TX#001) »E 

HL 

Dy (HL) 

(TX4002) BD 

HL 


ly + GET CURRENT FUNCT CODE BACK 
AF 


DE } MOVE FUNCT ADDRESS TO IY 
ly : 


DE »BSIVRT + FAKE RETURN ADDRESS 
DE 


(IY) + GO DO FUNCTION 


D000 + THEN GO DO FUNCT ADDRESS +7 
E,007 

IY ,DE 

DE »BXXIT > RETURN TO EXIT CODE 

BE 

(TY) 


HL + ADVANCE LINK BY 4 


(1X#001) -L 
(1X#002) pH 


HL + COPY 3 BYTES FROM (OLD LINK) 
DE ,00005 > TO (IXt3,+4,#5) 

ADDXD 

BC ,00003 





CHON. MAC MACRO-80 3.4 © 01-Dec-80 PAGE = 1-15 D-16 
G41  O3EE’ ED B8 LDDR 
842 ; 
843 O3FO’ = DD 34 07 00 LD (1X#007) ,000 
944 03F4’ DD 36 08 00 LD (1X4008) ,000 
845 O03F8’ 18 47 BR BXXIT 
844 ; 
847 O3FA’ = FE O01 BS1V2; CP 001 
848 03FC’ «20 IB R NZ »BSIV3 
49 ; 
850 O3FE’ = 1E 084 LD E006 } ADVANCE LINK BY 6 
851 0400’ = 16 00 LD 5,000 
B52 0402’ «19 ADD = HL DE 
853. 0403’ «sD 75 01 LD (1X#001) yk 
854 = 0406’ DD 74 02 LD (1X#002) 9H 
855 ; 
856 0409’ 2B pec 8 OL ; COPY 5 BYTES FROM (OLD LINK) 
857 (040A’ 1 Iw COE } TO (IXt3 TO IX#7) 
58 0408’ «CB 0478’ CALL = ADDXD 
859 «= 040E’ = 01-0005 LD BC ,00005 
860 0411’ ED B8 LODR 
861 ; 
862 0413’ DD 36 08 00 LB (TX+008) 000 
863 = 0417’ «18 48 JR BXXIT 
864 ' 
865 0419’ FE 02 BSIV3; CP 002 
866 0418’ 20 28 R NZ yBSIVS 
867 $ 
868 O41D’ iE 06 LD £006 + ADVANCE HL BY 6 
869 = «O41F’ 16 00 LD D, 000 
870 = 0421’ 19 ADD = HL, DE 
871 ; 
872 0422'—sFil POP AF } GET PREVIOUS FUNCT CODE 
873 = 0423’ FS PUSH = AF 
874 ; 
B75. 0424" —s«ES C0 AND =: OCO } LOOK AT UPPER TWO BITS 
876 =: 0426’ 20 01 WR NZ,BSIV4 
877 = «0428’— 2B tec HL 
878 0429’ «DD 75 OL BSIV4: LD (IXH001) yb } RESTORE BACK POINTER 
879 = 0420’ —s DD 74 02 LD (1X+002).H 
BBO = 042F”’ 2 pec HL 
881 0430’ =—«1E 09 LD £009 
882.0432’ CD 0478" CAL  ADDXD 
883 90435’ 01-0002 LB BC 00002 
884 0438’ ED BB LDDR 
885 043A’ 3E 00 LD A, 000 
888 = 043C’— 12 LD (BE) »A 
887 = 043D’—s 1B pec CO C«WE: 
868 = O43E’ 1B pect«éiE 
B89 = 43F’ = OE (03 LD C003 
B90 = 0441’ ED BB LDDR 
B91 0443’ 18 1 R BXXIT 
892 ; 
893 0445’ s1E 08 BSIVS; LD E,008 
894 = 0447’: 16 (00 Lp D,000 
B95 0449" «19 ADD = ss HL DE 
89% 0444’ DD 75 01 LD (IX+001) yb 














CMON. MAC 


901 
902 
903 
904 


906 
907 


910 
911 
912 
913 
914 
915 
916 
917 
918 
919 


044 
0450’ 
0451’ 
0453’ 
0455’ 
0457’ 
0459’ 
0458’ 
0450’ 
045’ 


0461’ 
0463’ 
0464’ 
0465’ 
0466’ 
0448" 
0469’ 
046A’ 
0460’ 
046E’ 
0470’ 
0472! 
0473’ 
0475’ 
0476’ 
0477! 


0478’ 
047A’ 
0470’ 
047E' 
0480’ 
0481’ 


0482’ 
0486’ 


0488 
0488’ 
0488’ 
0491’ 
0494’ 
0495’ 
0496’ 
0497' 
0498” 
0498! 
0490’ 
049F ’ 
0400’ 


MACRO-80 3.4 


BD 74 02 
2B 

BD ES 
FD El 

1E 09 
FR 19 
FD ES 
BI 

01 0007 
ED B8 


DB ES 


DD ES 
FD El 
FD 19 
FD ES 
pi 
c? 


0002 FFFE 
0001 


O1 0482’ 
11 73BA 
CD 0098’ 
2A 73BA 
SE 

23 

56 

EB 

3A 73BC 
FE 00 
28 03 
37 

18 01 


01-Dec-80 PAGE = 1-16 
LB (1X#002) ,H 
DEC HL 
PUSH = «IX 
~ pop IY 
LB E,009 
ADD TY, BE 
PUSH =o 
POP BE 
LD BC 00007 
LDDR 
; 
? 
BXXIT: PUSH IX 
POP HL 
POP AF 
POP BC 
cP OFF 
RET Zz 
LD BA 
AND O3F 
CP 004 
JR NZ,» BSIVS 
LD B,O3E 
BSIV6: LD AyD 
AND ocd 
OR B 
LD (HL) »A 
RET 
; ee ea eeeeen ences 
’ 
p SSXSESATAATA LAAT TILL Te 
ADDXD: PUSH IX 
POP ly 
ADD Ty,DE 
PUSH =—si'L'Y 
POP DE 
RET 


; 
; 
DOIDAT: DW 2-2y1 


' 

y SSRRSRAELALIA ATES IT ATA Te 
BC ,DOLDAT 
DEP AREA 
PCOPY 
HL, (P AREA) 

Ey (HL) 

HL 

Dy (HL) 

DE HL 

Ay (P,AREAt2) 
Oo 
Z,$#005 + 004A2 


SRSSGNGECEREG 


$+003 + 00403 


D-17 


> ADD IX TO DE WITHOUT CHANGING 
IX  ¢ GOES THROUGH IY ) 


we 


> DISPATCH # 01 


CMON. MAC MACRO-80 3.4 01-Dec-80 PAGE 1-17 p-18 

















953 0442’ 3B? oR A 

94 ; 

955 ; 

956 0403’ SE LD Ey (HL) + DISPATCH # 32 
957 0444’ 23 INC HL 

958 0405’ 56 LD Dy (HL) 

959 0446’ 23 INC HL 

960 ; 

961 04A7’ —4E LB Cy (HL) 

962 048’ = 23 INC HL 

963 O4A9’ = 46 LD By (HL) 

964 04AA’ 23 INC HL 

965 ; 

966 04AB’ = SE 00 LD A, 000 

967 O4AD’ =: 02 LB (BC) »A 

968 ; 

969 O4AE’ 1A LD Ay (DE) 

970 O4AF’ FS PUSH = AF 

971 04R0’ £6 OF AND OOF 

972 0482’ CA. 04E7 PP 7,004E7 ; JUMP ON CODE 0 
973 0485’ = 3D DEC A 

974 0486’ = CA OSFL J&P 7,005F1 3 JUMP ON CODE 1 
975 04B9’ 3D pec 4 

978 04BA’ = CA 0600 - PP 7100600 + JUMP ON CODE 2 
977 O4BD’ =D pec A 

978 O4BE’ CA 0600 PP 7,00600 } JUMP ON CODE 3 
979 o4ci’ «3D pec A 

980 04C2’ 28 02 R 7,$#004 ; 004C4 JUMP ON CODE 4 
981 04C4’ Fi POP AF 

982 04c5’ C9 RET } RETURN IF CODE NOT 0-4 
983 ; 

984 04C6’ «1A LD Ay (DE) 

985 04C7’ AF RRA 

986 04ca’ IF RRA 

987 04C9’ IF RRA 

988 04CA’ IF RRA 

989 04CB’ ES OF AND OOF 

990 o4cD’ 47 LD ByA 

991 O4CE’ SE LD E, (HL) 

992 O4CF’ = 23 INC HL 

993 0400’ 56 LB Dy (HL) 

994 O4D1’ = 23 INC HL 

995 0402’ 87 OR A 

996 0403’ =. 28 10 R 7,$#012 > O04ES 

997 Q405’ Fi POP AF 

998 0406’ FS PUSH =—oAF 

999 04D7’—s«ES PUSH = «HL 

1000 04p8’ 5 PUSH =-BC 

1001 0409’ «EB EX DE, HL 

1002 O4BA’ = CD-«O4A3 CAL 0043 

1003 o4BD’ = C1 POP BC 

1004 O4DE’ EL POP HL 

1005 O4DF’ SE LD E, (HL) 

1606 0460’ 23 INC HL 

1007 O41’ 36 LD D, (HL) 

1008 04E2’ =. 23 We | OL 





CHON MAC 


1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 


1020 
1021 


1064 


04E3’ 
04E5’ 
0466’ 


O4EA’ 
O4EB’ 
O4EC’ 
O4ED’ 
O4EE’ 
O4EF’ 
04F2° 
04F4/ 
04F5’ 
04F7’ 
04F8’ 
O4FR’ 
O4FD’ 
O4FF’ 
0500’ 
0501’ 
0502’ 
0503’ 
0505’ 
0506’ 
0507’ 
0508’ 
0509’ 
050A’ 
OS0B’ 
050C’ 
OS0n’ 
OS0E’ 
QS0F’ 
0510’ 
0511’ 
0513’ 
0514’ 
0516’ 
0518” 
OSIB’ 
OSIE’ 
0520’ 
0522’ 
0525’ 
0528’ 
052A’ 
0520’ 
05 2F’ 
0530’ 
0531’ 
0532’ 
0534’ 
0535 é 
0537’ 
0538 
0539’ 
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10 EC 
Fi 

Cc? 

CB 0572 
1A 

oF 

13 

iA 


3 


SARIDRRABS 
m 


GRP sSSRSSCCRASE FA 


GBER2S8 
paar) 


CGEEEEEg55 


gee Sees sggCcs 


I 


ESEZZCCN RRS 


1-18 D-19 


$-012 + 00405 
AF 


00572 

A, (DE) 

LyA 

BE 

A, (DE) 

AgL 
(TY#005) A 
H,000 

AF 

NC,» $403A 
AF 

Ay (VBPOSH) 
1,4 
Z,$4033 3 00530 
DE, HL 

By 

Cyl 

Ly (HL) 
H,000 

HL 

HL, HL 

HL HL 

HL, HL 

HL 

BC 

A, (BC) 

LA 

BC 

ft, (BC) 

HyA 


> 0052F 


byA 

Z,$4005 5 00525 
00594 

005E8 

SA 

Z,»$+005 3 0052F 
00594 


DE,HL 

C,{HL) 
B,000 

BC 

ly 

HL 

Ay CHL) 
HL 
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1065 OS3A' 66 LD H, (HL) 
1064 OS3B’ OF LD LA 
1067 053C’ «ES PUSH = HL 
1068 0530’ C5 PUSH = BC 
1049 0536’ 5 PUSH =D 
1070 OS3F’ FD ES PUSH =O 
1071 0541’ JE 03 LD A,003 
1072 0543’ CD 1€27’ CALL = RCOPY 
1073 0546’ C1 POP BC 
1074 0547’ El POP HL 
1075 0548’ 3D LD Erk 
1076 0549’) 54 LB DH 
1077 OS4A’ = 09 ABB HL,» BC 
1078 OSB’ = B pec HL 
1079 o54c’ CB XC SRL H 
1080 OS4E’ CB 1B RR L 

1081 0550’ CB 3C SRL H 

1082 0552’ CB IB RR L 
1083 0554’ «CB 3C SRL H 

1084 0556’ CB 1D RR L 

1085 0558’ CB 2B SRA E 
1086 O5SA’ = CB 2B SRA E 

1087 O5SC’ CB 2B SRA E 
1088 OSSE’ 87 OR A 
1089 OSSF’ = ED 52 SBC HL DE 
1090 0561’ 23 INC HL 
1091 0562’ ES PUSH = HL 
1092 0563’ FD El POP Ty 
1093 0565’ El POP HL 
1094 0566’ 29 ADD HL HL 
1095 0567’ 29 ADD HL HL 
1096 0568’ 29 ADD HL HL 
1097 0569’ Cl POP BC 
1098 056A’ 09 ADD HL,» BC 
1099 OS6B’ SE OA LD Ay004 
1100 0546p’ = CD 127’ CALL = RCOPY 
1101 0570’ Fil POP AF 
1102 os71’ RET 

1103 ; =? 
1104 } 

1105 $ SERESAAAALTAALL STI TITTIIT TT 
1106 0572’ C5 PUSH = BC 
1107 0573’ FD El POP ly 
1108 0575’ «oS PUSH =o 
1109 0576’ SE LD Ey (HL) 
1110 0577’ 23 INC HL 
{ii 0578’ 3% LD By (HL) 
1112 0579’ «CB 7A BIT 7D 
1113 OS7B’ 20:14 JR NZ, $+016 00591 
i114 0570’ 7A LD AyD 
1115 O57E’ FE 70 cP 070 
1116 0580’ 38 04 BR C,$+008 + 00588 
1117 0582’ 3 80 LD AyOB0 
1118 0584’ 12 LD (DE) yA 
1119 0585’ 18 OA R $+00C +: 00571 
1120 0587’ 80 ADD AyB 
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1121 0588’ 21 0587 LD HL, 00587 

1122 058B’ 01-0001 LB BC,00001 

1123 OS8E’ CB 1D01’ CALL = CPRTV 

1124 0591’ Bl POP BE 

1125 0592’ 13 INC DE 

1126 0593’ C9 RET 

1127 rrr nen 
1128 ; 

1129 PB tiissesscsesecs seh ssegssssss 





AF 
BC 
IY 
DE 
HL 
A,003 


1130 0594’) FS 
{131 0595’ 3 
1132 0596’ FD ES 
1133 0598’ 05 
1134 0599’ ES 
1135 059A’ SE 03 





PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

LD 
1136 = 059’ CD 1027” CALL = RCOPY 
1137 OS9F’ EL POP HL 
1138 O5A0’ sD POP DE 
1139 OSAL’ = FD EL POP it 
1140 OSA3’ C1 POP BC 
1141 O5A4’ OF 1 POP AF 
1142 OSAS’ FS PUSH AF 
1143 0586’ C5 PUSH = BC 
1144 057’ FD ES PUSH =s«TY 
1145 o5a9’ oS PUSH = DE 
1146 OSAA’ = ES PUSH =o HL 
1147 OSAB’ = CB 47 BIT 4yA 
1148 OSAD’ =. 20 OB JR NZ, $+00F > OOSBC 
1149 OOSAF’ 0? ADB HL BC 
1150 05B0’ = 3E 04 LD Ay004 
1151 0582’ €D 1C27’ CALL —-RCOPY 
1152 O5B5’ El POP HL 
11533 05B6' oD POP DE 
1154 057’ FD El POP ly 
1155 05B9’ C1 POP BC 
1156 OSBA’ =F POP AF 
1157 OSBB’ C9 RET 
1158 OSBC’ = 09 ADD HL» BC 
1159 OSBD’ = 4D LD Cel 
11460 OSBE’ 44 LB ByH 
1161 OSBF’ = FD ES PUSH =sIY 
11462 osci’ El POP HL 
1163 05C2’ ES PUSH = HL 
1164 OSC3’ OA LD Ay (BC) 
1165 0504’ C5 PUSH = BC 
1146 O55’ 01 0008 LB BC 00008 
1167 O5C8’ = 2A 8006 LB HL» (08006) 
1168 OSCR’ 09 ADD HL,BC 
11469 OSCC’ 06 08 LD B,008 
1170 OSCE’ = 2B DEC HL 
{171 OSCF’ = 77 LB (HL) »A 
1172 O5B0’ = 10. FB DJNZ © $-006 = +: OOSCE 
1173 0502’ DS PUSH =DE 
1174 0503’ FD 21 0001 LB TY,00001 
1175 0507’ E04 LD A,004 
1176 0509’ = CB 1€27’ CALL =- RCOPY 
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1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 


OSDC’ 
OSDD’ 
OSnE’ 
OSDF’ 
O5E0’ 
OSEL’ 
QSE2’ 


0564’ 
05E6’ 


05E8’ 
OSE9’ 
OSEC’ 
OSED’ 
OSEE’ 
OSEF’ 
OSFO’ 


OSF 1’ 
OSF4’ 
OFS’ 
OSF4’ 
O5F9’ 
OSFA’ 
OSFB’ 
OSFE’ 
OSFF’ 


0600’ 
0601’ 
0602’ 
0603’ 
0604’ 


0606" 


0607’ 
0608’ 


04608’ 
0600’ 
0600’ 
060E’ 
O60F’ 
0610’ 
0611’ 
0612’ 
0613’ 
0614’ 
0616’ 
0617’ 
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Di 
Ci 
13 
03 
- El 


SaSkaw 


3B 


01 0100 


cD 0572 
13 
1A 
FD 77 05 
13 
1A 
FD 77 06 
Fi 


03 
03 


IRRASRAABMBRSMANBASS 
F 4 


m 
rar 


01-Dec-86 


7 ae 


we we we 


¢ 
’ 
* 
’ 
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PoP DE 

POP BC 

INC DE 

INC BC 

POP HL 

pec HL 

LD ArH 

oR L 

R NZ,$-026 + 005C2 

BR $-035 3 005B5 

PUSH BC 

LD BC,00100 

EX DE, HL 

ADD HL,» BC 

EX DE,HL 

POP BC 

RET 
SEAALATAAAAALT ATTIRE TIT 

CALL = ©: 00572 

INC DE 

LD A, (DE) 

LD (TY+005) »A 

INC DE 

LD Ay (DE) 

LD (TY4#006) »A 

POP AF 

RET 
SERTAALAALTTSTATAAI TEST 

INC BC 

INC BC 

INC BC 

INC BC 

INC BC 

EX DE, HL 

INC HL 

LD A, (HL) 

LD E,A 

LD B,000 

PUSH DE 

INC HL 

LB E, (HL) 

INC HL 

a) DB, (HL) 

INC HL 

ADD Ay (HL) 

LD (BE) ,A 

LD Cy{HL) 

LD B,000 

PUSH BC 

POP ly 





0619’ 
061A’ 
0618’ 
0610’ 
0610’ 
O61F’ 
0622’ 


0623’ 
0625’ 
0628’ 
0629’ 
062A’ 
0628’ 
0620’ 
0620’ 
062E’ 


062F’ 
0630’ 
0633’ 
0634’ 
0637’ 
0638’ 
063A’ 
043C’ 


063F’ 
0642’ 
0645’ 


0447’ 
064A’ 
064E’ 


064F’ 
0653’ 


0655’ 
0658’ 
0658’ 
O65E’ 
0661' 


0664’ 
0667’ 
0669’ 
0660’ 
O66F’ 
0672’ 
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re 


SBHSTER 
a 


a a 


SSS NHASRRSESB ASA adess 
Cr 


Gi 
cz 


SER 
fiz 
a” 


0002 0001 
FFFE 


01 064F’ 
{1 73BA 
CD 0098’ 
3A 73BA 
2A 73BE 


32 73CA 
3E 00 

32 73CB 
32 73CC 
22 7301 
22 73CD 
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BE, HL 
DE 

AF 

NC 
4,001 
RCOPY — 


REGRAZEN 


+ ae 


MB risstitstiscerstitsesesstie3 
PSHIXB! PUSH IX 
‘ow 


HL, (073CB) 
POP BE 
LB (HL) »E 
INC HL 
LD (HL) yD 
INC HL 
LB (HL) 9B 
INC HL - 
’ 
EX DE,HL 
LD Ay (073CB) 
INC A 
LD HL ,073CA 
cP (HL) 
JR NZ) $+00F 
LD Ay000 
LB (073CB) pA 
’ 
LD HL,» (073D1) 
LD (073CD) »HL 
R $4009 
’ 
LD (O73CB) yA 
LD (073CB) DE 
RET 
; Pear ece ee aeeeen aman 
, 
; 
DIADAT: DW 2419-2 


' 
y SSERAASALAAALA LAAT ATT 


LD BC, DIADAT 
LB DE ,P »AREA 
CALL = PCOPY 

LB A, (P. AREA) 


LB HL, ({P.AREA+1) 


oe ae 


(O73CA) yA 
A000 
(073CB) A 
(073CC) »A 
(073B1) HL 
(073CD) »HL 


BGE6G6666 


D-23 


+ SAVE IX,B BY POINTER AT 073C2 


+ DE GETS POINTER, HL GETS IX 


+ JUMP IF (073CB) NOT = (073CA)-1 
+ 00647 

+ IF (073CB)=(073CA)-1 THEN 

+ (073CB)=0 


+ (073CD)=(073D1) 16 BITS 


+ 0064E EXIT 


3 ADVANCE COUNTER 
+ UPDATE POINTER 


> DISPATCH # 1A 


> DISPATCH # 2C 
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1789 0675’ 22: 73CF LD (O73CF) gHL 

1290 0678’? RET 

1291 ;- a 
1292 ; 

1293 MBrtcccccttrssccsttissecsocss | 
1294 0679’ -3A 7308 LD sAS(STRFLG) «=: DISPATCH # 2D 
1295 0670’ FS PUSH AF 

1296 0670’ —-3E_00 LD A000 

1297 067F’ «32-7306 LD (STRFLG) »A 
1298 ; 

1299 0682’. 3A 73CC LDA, AO73CC) 
1300-0685’ 21: 73CB LD «HL, O73CB 

1301 0688" —«BE cp CHL 

1302 0689" 28 31 Rs, $4033} 006BC 
1303 ; 

1304 0688’ 2A 73CF LD HL, (O73CF) 

1305 068E’ SE LDC, (HL) 

1306 068F” 23 INC HL 

1307 0690" 56 LOD, CHL) 

1308 (0691-23 INC HL 

1309 0692" 46 LD By (HL) 

1310 0693’ 3 INC HL 

1311 049470 PUSH DE 
13120695’ DD El pop IX 

1313 ; 

13140697" ES PUSH HL 

1315 0698’ CD 06E3 CALL —004E3 

1316 069B”—«3A- 7300 LD Ay (07300) 

1317 OGRE” -3C INCA 

1318 089F’ 21 73CA LD CHL, O73CA 

1319 06A2’ BE cp CHL) 

1320 06A3’—«-20 OE R ——sNZ,$#010 + 00683 
1321 ; 

1322 O6AS’ SE 00 LD A000 

1323 06A7’ «32: 73CC LD (O73CC) yA 

1324 08AA’ 2A 73D LD =—sHL, (07301) 

1325 O6AN’ «22: 73CF LD (O73CF) yHL 

1326 06B0’ El POP HL 

1327 O6BL’ 18 07 JR «$4009 <O06BA 
1328 ; 

1329 06B3’ «32 73CC LD CO73CC) yA 

1330 0686’ El POP HL 

1331 06B7’—««-22-73CF LD (O73CF) HL 

1332 O6BA’—18 C2 RR —-$-03C-—§: 00682 
1333 ; 

1334 OBC’ F POP AF 

1335 06RD’ «32-7306 LD CSTRFLG) 9A 

1336 0600" C9 RET 

1337 : — — 
1338 ; 

1339 : 

1340 06C1’ 0002-0002 DOQDAT! DW = 2y2yd 

1341 04C5’ 0001 

1342 ; 

1343 MBriesstssistiscccitistiitsss 


1344 06€7’ 01 «08C1’ LD BC,DOZDAT 3 DISPATCH # 02 
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1345 06CA’ =11 73BA LD DE,P AREA 

1346 06CD’ = CD 0098’ CALL. PCOPY 

1347 06D0’ DD 2A 73BA LD TX) (P AREA) 

1348 06B4’ 3A 73BC LD fy {P AREAt2) 

1349 06B7’ = 47 LD ByA 

1350 ; 

iS! ; 

1352 06DB’ A 7304 LD Ay (STRFLG) > DISPATCH # 33 
1353 OSDB’ = FE 01 CP 1 

1354 O6DD’ = =—.20 04 R NZ,$4006  O06E3 

1355 OéDF’ = CD. 0623’ CALL = PSHIXB 

136 06E2’ CP RET 

1357 ; 

1358 06E3’ BD 66 01 LD Hy (TXt001) + GET LAST FUNCT CODE 
1359 06E6’ DD 6E 00 LD Ly (IX+000) 

1360 O6E9’ = 7E LB Ay CHL) 

1361 O6EA’ =F LD CyA 

1362 O6EB’ ES OF AND OOF 

1363 

1364 O6ED’ CA O6FF PP Z,006FF > JUMP ON CODE 0 
1365 O4FO’ =D DEC A 

1366 O6Fi’ CA 0A87 P Z,00A87 > JUMP ON CODE 1 
1367 O6F4’ OB. DEC A 

1348 O6FS' CA O8DF PP 7,008DF y JUMP ON CODE 2 
1369 O6F8’ = SB DEC A 

1370 O6F9’ = CA «0955 P 200955 + JUMP ON COBE 3 
1371 ; 

1372 O6FC’ C3 OEA2 WP OOEA2 > JUMP ON ANY OTHER 
1373 ; 

1374 O6FF’ = DD 56 03 LB By (TX#003) 

1375 0702’ DB SE 02 LD E,(1X#002) 

1376 0705’ 05 PUSH DE 

1377 0706’ = FD £1 POP IY 

1378 0708’ FD 56 02 LD By (TY#002) 

1379 0708’, FD SE 01 LD E,(1Y+001) 

1380 070E’ CD 07E8’ CALL =o DIVLIM 

1381 O711' = 4B : LD CyE 

1382 0712’ FD 56 04 LD Dy (TY#004) 

1383 0715’ FD SE 03 LD E,(TY#003) 

1384 0718’ CB O7E8’ CALL =sDIVLIM 

1385 O71B’ = 43 LD ByE 

1386 O71C’ FD SE 00 LD E,(TY#000) 

1387 O71F’ = 16 00 LB B,000 

1388 O721’ «19 ADD HL,DE 

1389 0722’ «19 ADD HL DE 

1390 0723’ = 1E 05 LB E,005 

1391 0725’ «19 ADD HL, DE 

1392 0726’ SE LD E, (HL) 

1393 0727’ 23 INC HL 

1394 0728’ = 36 LD BD, (HL) 

1395 0729’ «EB EX BE, HL 

139 072A’ 5 PUSH = BC 

1397 0728 oD POP bE 

1398 0720’ = 4E LB C, (HL) 

1399 0720’ 23 INC HL 

1400 0726’ 46 LD B, (HL) 

















1456 


072F’ 
0730’ 
0733’ 
0735’ 
0737’ 
073A‘ 
0738’ 
0730’ 
0730 
0738’ 
0740’ 
0742 
0744! 
0745’ 
0748 
0749" 
0748’ 
074€’ 
0751’ 
0754’ 
0759’ 
0756’ 
0797" 
075A’ 
0750’ 
O75E’ 
O75F’ 
0761’ 
0763’ 
0764’ 
0766’ 
0767’ 
0768’ 
0749’ 
0764’ 
076B’ 
076D’ 
076E’ 
O76F’ 
0771’ 
0772’ 
0774 
0775’ 
0776’ 
0777’ 
0778’ 
0779 
077A’ 
0778’ 
0770 
O77F’ 
0780’ 
0781’ 
0783’ 
0785’ 
0786’ 
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FAA 
a 


“ll 
S8s & 
; oo 


HSGHRBRMRRASSRSSR 
i 
4 


22 8g 


_ 
os 


s 


o 
reed 


ASBYeSANecMRFRQaslsAAdlseanaa 
vt 


40g ZEB SURG RGR RE gSTCgRCgZgC Sc HCCC ee Ugg ERE® 


FFE RZRRRRARRSE 


PAGE 


INC 
BIT 


1-25 +26 


KL 

Ay (1X4005 

758 : 

2,$4006 } 00738 
00808 


BC 
DE 
HL 
070 ah 
Z,$4004 3 00744 
C,$+009 ; 0074B 
Hef 

L,(1X#004) 

Ay (HL) 

$4037 $ 00780 
HL, (08006) © 

Dy (1X4005) 
E,(IX#004) 

HL 

DE 

HL 

BC 00004 
RDVRM 
HL 

Ay (HL) 
080 
NZ, $4005 
BE 
$+01B 
HL 

HL 

B, (HL) 
HL 

Ey (HL) 
D,000 
HL 

DE, HL 
$4003 
HL HL 
$-005 


+ 00766 


3 0077F 


3 00772 


3 00771 


HL 


s 


4 


(HL) 

080 

Z,$4011 5 00794 
E, (HL) 

HL 




















0787’ 
0788’ 
0789’ 
078A’ 
078R’ 
078C’ 
0782’ 
O78F ’ 
0792’ 
0794’ 
0795’ 
0796’ 
0797’ 
0798! 
0799’ 
079A’ 
0790’ 
07A0’ 
O7A2’ 
0743’ 
075’ 
0748! 
0749’ 
O7AA’ 
O7AB’ 
O7AC’ 
07AD’ 
O7AE’ 
O7AF’ 
0780’ 
0782’ 
0785’ 
0787’ 
0788’ 
0789’ 
07BA‘ 
078C’ 
O7BF ’ 
07t1’ 
0704’ 
0706’ 
0707’ 
070?’ 
07CB’ 
O7CE’ 
O7(F’ 
0702’ 
0703’ 
0704’ 
0705’ 
0706’ 
0718’ 


0709’ 


073A’ 
070B’ 
07DD’ 
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36 


om & 
4 


ae) 
Ot 
on 


3 


> 
— 


CALL 


SQGEGGE EEG RSs sSGCRRe8g83 


= 
=) 


1-26 D-27 


D, (HL) 

HL 

C, (HL) 

HL 

B, (HL) 

HL 

Ix 

00808 

IX 

HL 

DE 

BC 

BC 

DE 

HL 

Hy (1X4005) 
L,(IX#004) 
A070 


H 

C,$4005 } 00748 
HL » (08006) 
(HL) »E 


IX 

0080B 

Ix 

Dy (1X#005) 
A,070 

B 

Zy$4020 5 007E7 
Cy$t01E $ 007E7 
E> (IX+004) 


HL, (08006) 
HL 
HL 
HL 
E, (HL) 
B,000 
HL 
By (HL) 
BE, HL 
$4003 
HL HL 


; 0O7DE 
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1513 O7DE’.— 10 F9 DINZ 8-005} 0070D 

1514 O70’ ES PUSH = HL 

1515 O7E1’ oY EXX 

1516 O7E2’' C1 POP. BC 

1517 O7E3’"—s Et POP HL 

1518 0764’ CD 101’ CALL -CPRTV 

1519 O7E7’" 9 RET 

1520 SS aa aA 

1521 ; 

1522 j SERERREEREERENERS EERIE TTT 

1523 ; 

1524 ; THIS ROUTINE ARITHMETICALLY DIVIDES DE BY 8 AND LIMITS 
1525 ; THE RESULT TO THE RANGE -B0 TO 7F INCLUSIVE. 
1526 ; 

1527 07EB’ ES DIVLIAS PUSH = HL 3 SAVE HL 

1528 ; 

1529 O7E9’— CB 2A SRA OD } DE=DE/8 

1530 O7EB’ «CB AB RR E 

1531 O7ED’ «CB 2A gra 

1532 O7EF’ CB 1B RR Cé: 

1533 O7F1’ CB 2A SRA 

1534 O7F3’ CB AB RR E 

1535 ; 

1536 07F5’— CB 7A BIT = 793 

1537 (O7F7’ 20:09 R NZ, DENEG > JUMP IF DE NEGITIVE 
1538 ; . 
1539 O7F9’ 21. FFBO LD HL, OFF80 +. HL=-B0 

1540 O7FC’. 19 ADD =H, DE + ADD DE (I.E, HL=DE~B0) 
1541 O7FI’.EL POP HL + RESTORE HL 

1542 O7FE’ =O RET = + RETURN IF DE<80 
1543 ; 

1544 O7FF’—1E 7F LD E,07F + IF DE 1S >=80, SET IT BACK TO 7F 
1545 0801’ C9 RET 

1546 ' 

1547, 0802’ 21-0080 DENEG! LD HL ,00080 + CHECK FOR DE<-80 
1548 0805’ 19 ADD =H, DE 

1549 0806’—El POP HL 

1550 0807’ 08 RET =€ + RETURN IF DE<= -80 
1551 ; 

15520808’ IE 80 LD «E080 + ELSE MAKE DE= -80 
1553 080A’ C9 RET 

1554 ; a 

1555 ; 

1556 } SERESREESELR STRAIT TET 

1557, 080B’. CS PUSH BE 

1558 = 080C’ DS PUSH DE 

1559 O80D’ ES PUSH = HL 

1560 OBOE’? EXX 

1561 O80F’ EL POP HL 

15620810’ Popo 

1563 (O811’ C1 POP BC 

1544 0812’ CD. 08C0’ CALL DIVADD 

1565 0815’ 9 EXX 

1566 0816’ 7B LD AE 

15670817’ CB 7F BIT = 7A 

1568 = 0819" -20 03 RS NZ $4005 + OBIE 
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LB BC,00020 
EX DE,HL 
ADD HL BC 
EX DE PHL 
POP BC 
pec B 
JR NZ,$-O1F 
RET 


oe ane ae amet om ea a aman oe 





; 
; 
MB tsrsssssces tosses sees cess see 3 
B 


IVADD: PUSH = HL 
BIT 753 
RR Z,DVAL 
LD HOFF 
JR DVA2 
’ 
BVA; —soLD H,000 
DVA2; LD LyD 
’ 
ADD HL yHL 
ADD HL HL 
ADD HL» HL 
ADD HL HL 
ADD HLyHL 
’ 
BIT 79E 
JR 2, DVA3 
LD D,OFF 
SR DVA4 
’ 
DVA3: LD B,000 
:  =ADD HL DE. 
EX DE,HL 
POP HL 
RET 
; ns 
’ 
y SSSERAAAAITATAAATAT STALL 
LD TY, (08006) 
LD Ly, (IX#002) 
LD Hy (1X#003) 
LD DE,00001 
ADD HL,DE 
LD C, (HL) 
INC HL 
LD B, (HL) 
LD AyB 
cP 000 
RR Z,$400D 3 00900 
cP OFF 
&P NZ,00A54 
LD Ayl 
cP OF? 
SP 4, 00A54 
InC HL 


* 


7 ee we 


¢ 
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e 
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* 
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> 
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0 
’ 


0-31 


008A2 


FORM A 16 BIT NUMBER FROM THE. 
SUM OF (DE AND OFF00)/8 SIGN EXT 
AND E SIGN EXT 


HL HAS DE/100H SIGN EXTENDED 


MULTIPLY HL BY 20H 


RESULT IS (DE AND OFFOO)/8 SIGN EXT 


SIGN EXTEND E 


ADD THEM 
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HL 
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HL 











0965 
0966’ 
0967’ 
0969’ 
0968’ 
0960’ 
0970’ 
0971’ 
0973’ 
0976’ 
0977’ 
0978’ 
0979’ 
097A’ 
0978 
0970’ 
O97F’ 
078i’ 
0984’ 
0985’ 
0987" 
098A’ 
098B’ 
098C’ 
0980’ 
098F’ 
0992’ 
0993’ 
0994! 
0995’ 
0996’ 
0999’ 
099A’ 
O99R’ 
O99E’ 
O9AL’ 
O9A4/ 
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LA 

DE 
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HL 

Ly» (IX#002) 
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DE, 00000 
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Ay (HL) 

A 
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CyA 

HL 

HL,BC 

Ay (HL) 
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1849 09C3’ Fé 80 

1850 o9cs’ FD 77 03 
1851 09C8’ =: 18 34 

1852 O9CA’ DD GE 02 
1853 Och’ DD 66 03 
1854 0900’ = 11 0001 


1955 0903’ 19 
1955 0904’ 7E 


“1857 0905’ = FD. 77 01 
1858 0708’ = DD GE 00 
1859 O9DB’ DD 66 01 
1860 OME’ 11 0005 
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TY, (08008) 
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HL» DE 
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$-019 + OOB25 


HL y (08006) 
BC,00011 
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BC,y0000B 
AyD 
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NC,$+007 
CPRTVV 
$+004 


+ OOBS! 
+ OOBS3 


IX 

DE, (08006) 
HL,00013 
HL,» DE 
DE,HL 
BC,00014 
HL, BC 
B,009 

Ay (DE) 
nE 

DE 
DE,00008 
HL, DE 
HL 

EyA 
B,000 
CA 

BC 
Ay009 

B 


. B,O00 
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C,$#005 5 00870 
B 


2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 








2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
209 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2iil 
2112 
2113 
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2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
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2125 
2128 
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0878’ 
OB7D’ 
OB7E’ 
0882’ 
B85’ 
O88?’ 
OBST’ 
OBS’ 
OBgt’ 
0B94’ 
B95’ 
0898’ 
OBI9’ 
OBIT’ 
OBIT’ 
OBIE’ 
OBAO’ 
OBA2’ 
OBA4’ 
OBA6’ 
OBAS’ 
OBAY’ 
OBAA’ 
OBAC’ 
OBAD’ 
OBBI’ 
OBES’ 
OBBG’ 
OBBS’ 
OBBA’ 
OBBC’ 
OBBE’ 
OBCO’ 
OBC2’ 
ORCS’ 
OBC4’ 
OBCS’ 
OBC?’ 
OBCA’ 
OBCR’ 
OBCE’ 
OBCF’ 
OBDO’ 
OBD4’ 
OBDS’ 
OBDY’ 
OBDA’ 
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OBDC’ 
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OBE’ 
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HL (08006) 
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E,C 
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A 
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nE 

HL 
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RVBLKY 
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DE,00068 
HL DE 
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DE 
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+ OOBBS 
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2129 
21% 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2149 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2140 
2161 
2162 
2143 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2178 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 


OBEE’ 
OBFO’ 
OBF1’ 
OBFS’ 
OBF8’ 
ORF?’ 
OBFA’ 
OBFC’ 
OBFF’ 
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0C61’ 
0002’ 
0003’ 


0004’ 


0007’ 
OCOA’ 
OCOB’ 
ocec’ 
OcoD’ 
0Ci0’ 
ocit’ 
0C13’ 
0015’ 
otis’ 
OCIA’ 
OC1B’ 
OCIB’ 
0C21’ 
0€22’ 
0024’ 
0C27’ 
0C2R’ 
OC2E” 
OC2F’ 
0C32’ 
0035’ 
0036’ 
0038’ 
0039’ 
0C3C’ 
ocsn’ 
OCSF’ 
0C40’ 
OC41’ 
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BC 
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HL, BC 
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7A 
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AyA 
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H,000 
HL,BE 
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DE 

AyD 

070 
NC,$t016 
BC 

HL 

BE 
BC,00008 
RDURMV 
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HL, BC 

DE ,HL 
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HL» BC 
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$+00B 
DE,HL 
BC 

BC, 00008 


+ 00C7C 
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BC 

DE,HL 

DE 

DE 
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BE, (08006) 
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HL,DE 

C, (1Y#000) 
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HL,BC 
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HL 00064 
HL, DE 
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2247 
2248 
2249 
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2259 
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OCAE’ 
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occa’ 
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“OCCF’ 
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ocna’ 
ocne’ 
ocn7’ 
ocpe’ 
ocpa’ 
ocnB’ 
ocpD’ 
OcnE’ 
OCE2’ 
OCE4’ 
OCE7’ 
OCEA’ 
OCER’ 
OCEE’ 
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B 
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NZ,$+007 
BC,00010 
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IX 
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HL 
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NZ, $4021 
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BC,00084 
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Dy (1¥+002) 
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BE,00013 
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> OOCFA 
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0b18’ 
ont?’ 
OBIA’ 
OpiB’ 
OniD’ 
on21’ 
0823’ 
0n24’ 
0026’ 
0029’ 
On2C’ 
OD2D’ 
OD31’ 
0033’ 
0034’ 
OD3A’ 
ongD’ 
OD40’ 
OD41’ 
oD4S’ 
0D48’ 
On4A’ 
ODAC’ 
OD4F’ 
ODS!’ 
0153’ 
DSS’ 
ODS7’ 
0058’ 
ODSA’ 
ODSR’ 
onsn’ 
ODSE’ 
OD60’ 
0062’ 
0064’ 
0046’ 
0067’ 
ODS?’ 
ODéC’ 
ODSE’ 
0070’ 
0n71’ 
0074’ 
0D76’ 
0078’ 
OD7A’ 
OD7B’ 
0D7D’ 
0081’ 
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0087’ 
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0089’ 
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DJNZ 
BIT 


CALL 
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E,C 
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HL, (08006) 
BC,000iC 
HL, BC 
TY,00009 
A,003 
RCOPYY 

IY, (08006) 
HL, (08006) 
BC,00084 
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1X,(08006) 
BC;00013 
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B,009 
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A 

A 

EyA 

D,000 

BC 
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B 
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Cy$+007 $ 00069 
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B 

$-00B +; 00060 
Ay (IY#H011) 
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Ix 

HL 

A,004 
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RCOPYY 

HL 

IX 

BC 

HL 

RE 

B 


r 00D96 
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2353 


2406 
2407 
2408 


opeB’ 
onac’ 
ODRE’ 
0D90’ 
ope4’ 
0096’ 
on98’ 
0n99” 
OngA’ 
OD9R’ 
Onec’ 
0n9D’ 
ODIE’ 
ODAL’ 
opad’ 
ODAS’ 
ODAG’ 
ODAg’ 
ODAA’ 
ODAC’ 
ODBO’ 
OpB3’ 
OnB4’ 
ODBS’ 
ODRS’ 
ODBA’ 
ODBC’ 
ODBE! 
ODBF’ 
onto’ 
onc’ 
onca’ 
ones’ 
onc?’ 
onca’ 
OncR’ 
ODCF’ 
onnt’ 
opDa’ 
opDs’ 
opps’ 
opny’ 
ODDA’ 
ODDE’ 
Oneo’ 
ODES’ 
one4’ 
Ones’ 
ODES’ 
ones’ 
ODEA’ 
ODEE’ 
ODF’ 
OnF2’ 
onr4’ 
OnF 6’ 
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& a 5635895 
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IY, (08006) 
Ay (TY#012) 
AyB 

018 

NC, $4020 
A 

A 

A 

DA 

E,C 

DE 
BC,0001C 
HL, BC 

BC, (08006) 
HL BC 

HL 
TY,00003 
A,003 
RCOPYY 

HL 
DE,00068 
HL,DE 

BE 
TY,00003 
Ay004 
RCOPYY 

BC 

B 

AyB 
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NZ,$-054 + OOD98 - 
TY, (08006) 

B,(IY#006) 

AyB 
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2,$+023 } 00E17 
C,(1Y+007) 


> OODES 





ODF 9” 
ODFC’ 
ODFF 
0E00’ 
0£02’ 
0E04/ 
0E07’ 
OE0A’ 
OEOB’ 
OE0E’ 
OE11’ 
OE14’ 
E17’ 
OEIB’ 
OEIE’ 
OE21’ 
0E22’ 
0E25’ 
0E28’ 
OE2B’ 
OE2E’ 


OEQF’ 
0E33’ 
0E35’ 
0E38" 
OE3R’ 
OE3C’ 
OESF’ 
OE 42’ 
OE43 
OE46’ 
OE49’ 
OE4B’ 
OEAC’ 
OE4E’” 
OES1’ 
OE52’ 
OE53’ 
OES’ 
£58’ 
OES?’ 
OESA’ 
OESC’ 
OESF’ 
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0E45’ 
0E67’ 
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0E73’ 
0E75’ 
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Hy (1Y#011) 
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A 
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Z,$+015 } 00E17 
HL, (08006) 
DE, 00008 
HL, DE 
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B, (1TY+007) 
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00808 
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BC, 00303 
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0,(17+003) 
NZ, $+018 
(1X+000) 
(IX+000) 2A 
AyH 
(1X+008) 
(1X4008) 9A 
Agl 
(TX#010) 
(IX4010) 9A 
$4016 + OOESF 


A 

Z,$+005 3 OOES1 
(IX4000) »A 

ArH 


A 

Z,$t005 3 O0ES8 
(1X4008) 9A 
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A 
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(IX4010),A 
7,(TY#003) 
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IX 

BC,00068 

IX,BC 
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1,(I¥#003) 
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C,00F 
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OECS’ 
OECS’ 
0EC7’ 
OEC?’ 
OECR’ 
OECB’ 
OECF ’ 
OEBO’ 
OEBI’ 
OED3’ 
OED4’ 
OES’ 
OEDS’ 
OEDB’ 
OEDD’ 
OEDF , 
OEEO’ 
OEE’ 
OEE2’ 
OEE’ 
OEE4’ 
EES’ 
OEE?’ 
OEEB’ 
OEE?’ 
OEEA’ 
OEEE’ 
OEFO’ 
OEF 2’ 
OEFS’ 
OEF6’ 
OEF7’ 
OEF8’ 
OEF9’ 
OEFR’ 
OEFC’ 
OEFF’ 
OF 02’ 
OFO3’ 
OF 04’ 
OF OS’ 
OF 06’ 
OF 07’ 
OFO9’ 
OFOA’ 
OF OB’ 
OF 10’ 
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OF 16’ 
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IX 

HL 

HL 
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HL 
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DE 

IY 

DE 

HL 

Ay (HL) 
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(TY4001) pL 
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Ay (DE) 


LyA 
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HL,»DE 
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BE 
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2465 
2486 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
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2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
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2502 
2503 
2504 
2505 
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2513 
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2519 
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OE7C’ 
0E7D’ 
OE7F’ 
OE82’ 
0E83’ 
0E84/ 
0E87’ 
OE88’ 
0E89’ 
OEBB’ 
OE8E” 
OESF’ 
0E90’ 
0E93' 
0E94’ 
OE95’ 
0E97’ 
OE9A’ 
OE9B’ 
OEIC’ 
OESF’ 
OEAI’ 


OEA2’ 
OEAS’ 
OEA4’ 
OEA7’ 
OEAA’ 
OEAB’ 
OEAC’ 
OEAD’ 
OEAE’ 
OEAF’ 
0EBO’ 
OEBI' 
OER2’ 
OEBS’ 
OER4’ 
OEBS’ 
OEBS’ 
OER?’ 
OER?’ 
OEBA’ 
OEBB’ 
OEBC’ 
OEBD’ 
OEBE f 
OEBF ’ 
ECO’ 
OEC1’ 
OEC2’ 
ECS’ 


MACRO-80 3.4 
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DD 6E 02 


16 00 


19 
4E 


23 
SE 
23 
56 


69 


01-Bec-80 


we ee 


e 
’ 


z 


SGSEGSSGGREGS856 


S56832638 
So 


5 


1-44 3 2 7 D-45 


C,000 

AYE 

A 

Z,$+00A + 00E87 
Ay (IXH000) 

C 

B 

(IX+000) ,A 

A,H 


4 

Z,$4004 $ 00E93 
Ay (1X4008) 

C 

B 

(IX#008) »A 

AeL 

A 

Z,$400A 3 OOE9F 
Ay (IXH10) 

Cc 

B 

(IX4010) yA 

IX 


RESESALA ITAA LIST AIL 


BC 


Hy (1X+003) 
Ly (1X#002) 
A, (HL) 

HL 

C, (HL) 

HL 

B, (HL) 

HL 

E, (HL) 

HL 

D, (HL) 


Ey (HL) 
HL , 
By (HL) 
HyB 
Lit 
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2577 0F22’ FD 23 INC ly 

2978 OF24' = FD 23 INC ly 

2979 OF26’ ES PUSH =—soHL 

2580 OF27’ DD El POP IX 

2581 OF29’ FR ES PUSH =o 

2582 OF2B’ 0S PUSH =o DE 

2583 OF20’ 43 LD ByE 

2984 OF2D‘ CD IFFA CALL OFFA 

2085 OF30’ =D POP BE 

2586 OF3i’ FD EL POP ly 

2587 OF33’ 15 DEC B 

2588 OF34’ 20 E2 R NZ,$-01C + OOF IC 
2589 OF36’ C9 RET 

2590 eres one 
2591 ; 

2592 y SEREREATAITALALATATTATTT LTT 
2593 OF37’ —- 2A 7303 LD HL, (07303) $ DISPATCH # 26 
2594 OFSA’ = CB GE BIT 5» (HL) 

2595 OF3C’ CC OF49 CALL  72,00F49 

2096 OF3F’ CB 66 BIT 4, (HL) 

2597 OF41’ =. 20:05 JR NZ, $+007 + OOF 48 
2098 OF43’ 23 INC HL 

2599 OF44’ = 23 INC HL 

2600 OF4S’ = 23 INC HL 

2601 OF46’ 18 EE R $-010 3 OOF3A 
2602 OF48’ = C9 RET 

2603 er 
2604 ; 

2605 Hm tesesitssosese cise sess tt css 
2606 OF49’ ES PUSH =—sHL 

2607 OF4A’ CB SE BIT 3, (HL) 

2608 OFAC’ =. 28-28 JR 2,$+02D } 00F79 
2609 OF4E’ CB 76 BIT (HL) 

2610 OFS0’ =. 20 «OB SR NZ,$+00F 3 OOF SF 
26ll OFS2’ 23 INC HL 

2612 OFS3’ SE LD Ey (HL) 

2613 OFS4’ 23 : INC HL 

2614 OFSS’ = 58 LD Dy (HL) 

2415 OFS6’ 1B DEC DE 

2616 OFS?’ = 7B LD AyE 

2617 OFS8’ = -B2 OR Dp 

2618 OFS9’ = 20-34 JR NZ, $4036 + OOF SF 
2619 OFSB’ EL . POP HL 

2620 OFSC’ ES PUSH =H 

2621 OFS’ = 18 2C JR $+02E + OOFSB 
2622 OFSF’ = 23 INC HL 

2623 OF60’ SE LD Ey (HL) 

2624 OFéL’ «23 INC HL 

2625 OFé2’ 36 \ LD Dy (HL) 

2626 OFé3’ EB EX BE,HL 

2627 OF64’ SE LB E, (HL) 

2628 OFS’ 23 INC HL 

2629 0F66’ = 56 LD By CHL) 

2630 OF67’ 1B DEC DE 

2631 OF68’ 7B LB AyE 


2632 OF69’ = B2 OR B 








2688 


OF 6A’ 
OFC’ 
OF SD’ 
OF 6E’ 
OFF’ 
OF70’ 
OF71‘ 
OF72’ 
OF73° 
OF74’ 
0F75’ 
OF 76’ 
0F77’ 
OF79° 
OF7A’ 
OF7B’ 
OF7D’ 
OF7E’ 
OFF’ 
OF81’ 
OF 83’ 
OFB4’ 
OF 85’ 
OF 86’ 
OF 87’ 
OF 88’ 
OF 89’ 
OFBA’ 
OF8B’ 
OF 8D’ 
OF8E’ 
OFSF’ 
OF90’ 
OF91’ 
OF92’ 


OF94! 
OF98’ 


OF9A’ 
OF 9D’ 
OF AO’ 
OFA3’ 
OFA6’ 


OF AA’ 
OFAD’ 
OF AF’ 
OFBO’ 
OF B3’ 


OFB4’ 


MACRO-80 3.4 


20 23 
23 
SE 
23 
56 
2B 
2B 
72 
2B 
BB 
Ei 
E5 
18 12 
23 
3 
20 10 
El 
ES 
CB 76 
28 08 
23 
23 
7 
28 


0002 0002 
0002 


01 0F94’ 
11 73BA 
CB 0098’ 
2A 73BA 
ED SB 73BC 


22 7303 
36 30 
EB 

22 7305 
C9 


0001 0001 


01-Dec-80 PAGE 1-47 D-48 
JR NZ, $4025 +. OOF SF 
INC HL 
LB E, (HL) 
INC HL 
LD D, (HL) 
DEC HL 
DEC HL 
LD (HL) »B 
BEC RL 
LD (HL) ,E 
POP HL 
PUSH =-HL 
JR $4014 3 OOFSR 
INC HL 
REC (HL) 
JR NZ, $4012 ; OOF 8D 
POP HL 
PUSH = HL 
BIT 6, (HL) 
JR Zy$tO0A $ OOFSB 
INC HL 
INC HL 
LD Ay (HL) 
DEC HL 
LD (HL) yA 
DEC HL 
POP HL 
PUSH = -HL 
SET 7) (HL) 
POP HL 
RET 
Li (HL) »B 
DEC HL 
LD (HL) »E 
JR $-009 }; OOF8D 
§ ----~----—--------=-------- 
? 
DIZDAT: DW 2rdre 
; 
$ SXXEAAAAATEAAAAALTAALALT TITS 
LD BC, DISDAT + DISPATCH # 13 
LD DE,P.AREA 
CALL © PCOPY 
LB HL, (P..AREA) 
LB DE, (P AREAt2) 
; 
’ 
LD (07303) »HL ; DISPATCH # 22 
LD (HL) ,030 
EX DE,HL 
LB (073D5) »HL 
RET 
; eee nena eee mame 
; 
DI4DAT: IW 1,1 
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2689 ; 

2690 Ptsrssestecescisestetscsistsy 

2691 OFRG’ 01 OFR4’ LD BC, DianAT $ DISPATCH # 14 
2692  OFBB’ 11 73BE LD DE,P AREAL 

2693  OFBE’ = CB-0098” CALL  PCOPY 

2694  OFCL’ 3A 73BE LD Ay (P AREA) 

2695 ; 

2896 ; 


CA + DISPATCH # 23 
HL, (07323) 


2697 OFC4’ = 4F 
2898 OFCS’ 2A 7303 




















LD 
LB 
2699 OFC8’ = 47 LD BA 
2700 OFC9’ 11 0003 LD DE,00003 
2701 OFCC’ 87 OR A 
2702 OFCR’ 28 08 JR Z,$tO0A > OOFD7 
2703 OFCF’ CB 46 BIT 4, (HL) 
2704 = sOOFDI’ = 20 4A JR NZ, $+06C ; 01030 
2705 OFD3’ 19 ADD HL» DE 
2706 OFD4’ = OD DEC Cc 
2707 OFDS’ 20 F4 R NZ,$-00A 3. OOFCF 
2708 OFD7’ CB 6E BIT 5, (HL) 
2709 OFDP’ 20 62 JR NZ,$4064 $ 01030 
2710 OFDB’ CB EE SET Sy (HL) 
2711 OFDD’ CB 76 BIT 6, (HL) 
2712 OFDF’ 28 SC JR Z,$t05E + 01030 
2713 OFEL’ CB SE BIT 3, (HL) 
2714 OFE3’ 28 58 JR Z,$+05A 3 01030 
2715 OFES’ 23 INC HL 
2716 OFE6’ SE LD Ey (HL) 
2717 OFE7’ 23 INC HL 
2718 OFEB’ 36 LD D, (HL) 
2719 OFE?’ = DS PUSH =oDE 
2720 OFEA’ 2A 7303 LD HL» (07303) 
2721 OFED’ ES PUSH = HL 
2722 OFEE’ CB 64 BIT 4, (HL) 
2723 OFFO’ 20 2E R NZ,$+030 + 01020 
2724 OFF2’ CB 4E BIT 5, (HL) 
2725 OFF4’ = 20 23 JR NZ» $4025 + 01019 
2726 OFF6’ = 7E LD fy CHL) 
2727 OFF7’ £6 48 AND 048 
2728 OFF9’ FE 48 CP 048 
2729 OFFR’ 20 1C BR NZ,$+01E + 01019 
2730 OFFD’ 23 INC HL 
2731 OFFE’ 23 INC HL 
2732 OFFF’ = 7E LD Ay (HL) 
2733 
2734 ; 
2735 $ THIS SHOULD BE LOCATION 1000H 
2736 ; 
2737 ; 
2738 1000’ BA CP B 
2739 1001’ 38 16 JR C,$#018 $ 01019 
2740 1003’ 20-08 JR NZ,$+00A + 01000 
2741 1005’ 2B BEC HL 
2742 1006’ 7E LD fy (HL) 
2743 1007’ BB CP E 
2744 1008’ 38 OF JR Cy$t0i1 ; 01019 
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2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2758 


100A’ 
1000’ 
1002’ 
100E’ 
100F’ 
1010’ 
1011’ 
1012’ 
1013’ 
1014’ 
1015’ 
1016’ 
1017’ 
1019’ 
101A’ 
1018’ 
101¢’ 
1o1D’ 
101E’ 


1020’ 


1022’ 
1023’ 
1024’ 
1025’ 
1026’ 
1029’ 
102B’ 
102C’ 
102n’ 
102E’ 
102F’ 
1030’ 
1031’ 
1032' 
1034’ 
1037’ 
1039’ 
103C’ 
1030° 


103E’ 
1042’ 


1044’ 
1047’ 
104A’ 
1040’ 
1050’ 


1053’ 
1054’ 
1055’ 
1058° 


HACRO-80 3.4 01-Dec-B0 PAGE 1-49 0-50 
28 31 JR $4033 $ 01030 
2 INC HL 
56 LD OD, CHL) 
2B DEC HL 
SE LD Ey CHL) 
1B MC ODE 
1B MC OOD 
1B DEC ODE 
1B NEC ODE 
3 LD (LD E 
23 INC HL 
72 LD CHL) D 
18 00 JR $4002} 01019 
Et POP HL 
B INC HL 
2 INC HL 
23 INC HL 
ES PUSH HL 
18 CA BR «$-034— 4} <OOFEE 
08 00 LD «By 000 
87 oR OA 
Et POP HL 
Bt POP ODE 
E5 PUSH HL 
2h 7305 LD «HL, (07305) 

ED 52 SBC UHL, DE 
4D LD Gok 
&B OLE 
62 LD HYD 
23 INC HL 
23 INC HL 
23 INC HL 
23 INC | OHL 
ED BO LDIR 
01 0008 LD «RC, 00008 
ED 42 SBC HL, BC 
22 7305 LD C0735) ,HL 
Et POP HL 
cP RET 
; earn meaeeneenenen anaes. on 
’ 
0002 0001 DISDATS DH = -2y1y2 
0002 
’ 
ABrtecsscssstestitissssiitcs 
O1 1036” LD «BC, DLSDAT } DISPATCH # 15 
11 73BF LD «CDE, P. AREAS 
cD 0098” CALL COPY 
24 7300 LD HL, (07300) 
3A 738F LD Ay (P AREAS) 
' 
’ 
a LGA } DISPATCH # 24 
ER EX DE HL 
2A 7303 LD «HL, (07303) 
AF XOR A 
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2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 


1059’ 
105A’ 
105C’ 
LOSE’ 
105F’ 
1060’ 
1062’ 
1064’ 
1065’ 
1046’ 
1067’ 
1069” 
106A’ 
1060’ 
106E’ 
104F’ 
1070’ 
1071’ 
1072’ 
1074! 


1076’ 


1077’ 
1078’ 
107A’ 
1078’ 


107C’ 


107F’ 
1080’ 
1082’ 
1083’ 
1084’ 
1085’ 
1086’ 
1087’ 
1088’ 


1089’ 


{08A’ 
108B’ 
108C’ 
108D’ 
108E’ 
108F’ 
1090’ 
1093’ 
1095’ 
1096’ 
1097’ 
1098’ 
1099’ 
109A’ 
109C’ 
1096’ 
10A0’ 
10A1’ 
1082’ 
1083’ 


KACRO-80 3.4 


18 42 
CB DE 
79 
87 
28 1B 
05 


2A 7305 
EB 
CB FS 


Oi-Bec-80 - 


SSSSECREGESEE 


= 
on 


LB 


1-30 D-51 


ByA 

5, (HL) not 
Z,$4040 3 0109C 
HL 

Ay (HL) 

010 

020 

(HL) 9A 

A 

B 

NZ,$+00B + 01074 
C 

Z,$4004 + O106E 
6, (HL) 


(HL) »E 

$4044 +: OL0R6 
3, (HL) 

Aryl 

A 

Z,$tO1D $ 01095 
DE 
DE, HL 

HL, (07305) 
E,HL 

6, (HL) 

HL 

(HL) »E 

HL 

(HL) »D 

DE yHL 

DE 

(HL) »E 

HL 

(HL) yD 


(07305) pHL 
$+023 + O10B4 


$t0iC 3 01086 
4, (HL) 
NZ,$+008 > O10A5 


=e ER 








2905 
2906 
2907 
2908 
2909 
2910 
29h 
2912 


1084’ 
1086 
1087’ 
10A8/ 
10A9’ 
10AA’ 
10AB’ 
10AC’ 
LORE’ 
LOAF’ 
1080’ 
10B2’ 
1083’ 
1084’ 
10B4’ 
1087! 
1089’ 
10BA’ 


10BR’ 


1OBF’ 
102’ 
1005’ 
1008’ 


10CB’ 
10CC’ 
10CF’ 
1000’ 
1003’ 
10p4’ 
1006’ 
1008’ 
ODA’ 
1008’ 
1050‘ 
Lone’ 
10E0’ 
10E2’ 
104’ 
10E6’ 
10E7’ 
10E9’ 
10EB’ 
L0ED’ 
1OEF’ 
10F1/ 
10F3’ 
10F4/ 


10FS’ 


MACRO-80 3.4 


3 


SEPAnaraks 
s 


01 00 01 00 


O1 10BB 
11 73C2 
CD 0098’ 
3A 7302 


OF 06 O1 03 


01-Dec-80 


we ee 


* 
y 
¢ 
’ 


we we 


~~ we me 


PAGE 1-51 0-52 
JR $-04E 5: O105A 
PUSH DE 
PUSH HL 
INC HL 
INC HL 
INC HL 
INC B 
LD (HL) ,030 
EX DE,HL 
POP HL 
RES 4, (HL) 
EX DE, HL 
POP BE 
R $-05E + O105A 
POP HL 
RES Sy (HL) 
LD AyB 
RET 
DB 001,000,001 ,000 

PEt tbeseseedsestistesesseces 
LB BC, O10BB DISPATCH # 16 
LD DE,073C2 
CALL = PCOPY 
LD fy (07302) 
LD CA + DISPATCH # 25 
LB HL, (073D3) 
LD ByA 
LD DE,00003 
OR A 
JR Z,$400A + OLODE 
BIT 4, (HL) 
JR NZ, $+00E > O10E4 
ADD HL DE 
DEC C ; 
JR NZ,$-00A + 01006 
BIT Sy (HL) 
R NZ»$4006 + O10E4 
BIT 7, (HL) 
AR NZ,$+005 + OL0OE9 
XOR A 
RR $+00C =; O10F3 
BIT , (HL) 
JR NZ,$+004 > O1OEF 
SET 5» (HL) 
RES 7,(HL) 
LD Ay001 
OR A 
RET 

EYTAB: DB OOF , 006,001 003,009 
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2913 10F9’ (09 





2914 —«10FA’ «00 OA OF 02 DB 000, 00A, 00F 002,008 

2915  10FE’ OB 

2916  «10FF’ «(07 «OF 05 04 DR 007, 00F 005,004,008 

2917-1103’ 08 

2918 ©1104" OF IBOOOF 

2919 ; 

2920 ; 

2921 «= «1105 13 CO CLEAR! QUT © (JSTK),A } SELECT JOYSTICKS 

2922 «1107 F XOR A > CLEAR A TO BE USED TO CLEAR OUT 
2923 ©1108” BD 2A 8008 LD «TX» 08008) * SOME SPACE 

2924 «= 1100’ DD 23 Ic IX 

2925 1108” DD 23 INC IX 

2926 1110’ FD 21 7307 LD —_—«TLY, CSTATP 

2927 «1114-06 OA LD By OOA : 

2928 «= 1116’ «DD 77 00 CLRI: LD (1X4000),A sf CLEAR QUT A 10 BYTE AREA STARTING 
2929 «1119s DD 23 INC IX + AT THE POINTER AT 8008 IN THE CARTRIDGE 
2930 1118’ «FD 77 00 LD (T¥#000) 9A 

2931 AMME” «FD 23 Ic OY + AND ALSO A 10 WORD AREA STARTING 
2932-1120’ FD. 77 00 LD (1Y#000),A sf AT CSTATP, THE POINER TO THE CONTROLLER 
2933 «=«1123’ FD 23 Ic IY + STATE TABLE 

2934 «112505 neCOC«#i® 

235 1126’. 20 EE JR sNZ,CLRI 

2936 ' 

2937 «1128-32. 73EB LD (PCNTL) 9A + CLEAR COUNTERS AND SHADOWS 

2938 «1128-32 73EC LD = (PCNT2)yA 

2939 «=: 112E’ «32: 73EE LD (JS1SH) 9A 

2940 «= « 131’ «32 73EF uD ( JS2SH) 9A 

2941 «1134/32 73FO LD (KP1SH) 9A 

2942 1137" (32 73F1 LD (KP2SH) 9A 

2943 «113A" CP RET 

2944 bene een nnn n nnn 

2945 ' 

2946 Brecsstcsissstictiseestir sss 

2947 «1138 00 DELAY! NOP + A VERY SHORT DELAY ROUTINE 

2948 «= «1L3C’ C9 RET 

2949 : —----—--—-—--— 

2950 ; 

2951 ABiecsstistessiesisstesteiese. 


2952 1130’ RDPORT: LD ArH "READ PORT BY FLAG IN H 





i 


7 
2953 113E’ FE 00 cP 000 RETURN COMPLIMENT IN A 
2954 1140’ 20 04 RR NZ, RDCT2 
2955 1142’ DB FC IN Ay(CTROLI) 
2956 1144” 18 02 JR RDCT1 
2997 1146’ DB FF RBCT23 IN Ay (CTROL2) 
2958 1148’) OF RBCT1: CPL 
2959 1149’ (9 RET 
2960 fee een erennne een 
2961 ; 
2962 $ SRSELSTAAATAAAELS ELS ET TTT 
2983 114A’ DB FC UDKJS: IN A, (CTROL1) ; DISPATCH # 07 
2964 1140 F CPL + UPDATE THE KEYBOARD AND JOYSTICK 
2965 114B’ 32: 73EE LB ( JS1SH) yA > SHADOW VARIABLES 
2986 1150’ DB FF IN Ay(CTROL2) 
2967 1152’ OF CPL 


29468 1153’ 32 73EF LD (JS2SH) A 


2969 
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1158’ 
1158’ 
115B’ 
1150’ 
115k’ 
1161’ 
1163’ 
1164’ 
1167’ 
1169’ 


116A’ 
1160’ 
L16F’ 
A171’ 
1173’ 
1175’ 
1177’ 
1178’ 


117A’ 
1178’ 
1170’ 
L17F’ 
1181’ 
1182’ 
1184’ 
1186’ 
1187’ 
1189’ 
118A’ 


1188’ 
118C’ 
118E’ 
1190’ 
1193’ 
1194° 
1196’ 
1198’ 
1199’ 
119A’ 
1198’ 
119C" 
1190" 
11A0" 
1iA1’ 
iia’ 
Lina’ 
1105’ 
{1A7’ 
1148’ 


0i-Bec-80 


7 1+ ae - 


i 


RESyecgeRs 





1-53 


(KEY) A 
DELAY 
A, (CTROLI) 


(KP1SH) ,A 
A, (CTROL2) 


(KP2SH) pA 
(JSTK) A 


} SEREEAERATTALEASST SESE T TTT 


UDPCR: IN Ay(CTROLI) 
LD HL, PCNT1 
BIT 4yA 
JR NZ,UBP2 
BIT SoA 
R NZ,UDP1 
REC (HL) 
JR UDP2 

’ 

UDP1; INC (HL) 
UDP2: IN Ay (CTROL2) 
BIT 4,A 

JR NZ,UDP4 
INC HL 
BIT Sef 
JR NZ ,UDP3 
BEC (HL) 
JR UDP4 
UDP3; = INC (HL) 
UDP4: = RET 
§ ---------—-------------—--—- 
’ 
$ SRRAEAASATALSAAAAS ATLA LTT 
SCANNS LD fAyL 
cP 001 
JR Z,LOOKY 
LD BC,PCNT1 
LD AH 
cP 000 
JR Z,SCN1 
INC BC 
SCN1: LD A, (BC) 
LD EyA 
XOR A 
LB (BC) »A 
CALL —_ RBPORT 
LB DA 
AND OOF 
LD LeA 
Lu AyB 
AND 040 
LD HA 
SR 


SCNNEX 


7 
' 


* 
' 


we we 


* 
t 


2 aw we 


* 
bd 


® 
' 


D-54 


‘SELECT KEYPADS 


SELECT JOYSTICKS 


3} DISPATCH # OD 
UP/DOWN PULSE COUNTER ROUTINE — 
FOR ROLLER CONTROLLERS 


EXIT 


EXIT 


DISPATCH # 08 

SCANN THE CONTROLLERS 

IF L 1S 1 GO LOOKUP KEYPAD CODE 
POINTER TO SCANN COUNT 

IF H=0 THEN DON’T INC SCANN COUNT 
GET COUNT 

CLEAR A 

CLEAR COUNT 

GET JOYSTICK DATA 


ONLY LOOK AT LOWER 4 BITS 


SET BIT 6 IN H REG FORM 


EXIT 
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3025 ; 

3026 :L1AA’ DB. 80 LOOKY! QUT (KEY) ,A } SELECT KEYPADS 

3027 LMAC’. CD 1130" CALL -RDPORT + GET RAW KEY VALUE 

3028s LIAF’ 57 LDA 

3029 1180’ 03 CO QUT = (STK) yA } SELECT JOYSTICKS 

3030 11B2’ ES OF AND (OOF + LODK UP KEYPAD VALUE 

3031 1184’ 21 10F5! LD) «HL KEYTAB + FROM A TABLE 

3032 1187’ 06 00 LD «By 000 | 

30331189’ 4F LDA 

3034s LLBAY 09 ADD HL BC 

3035 LIBR’ OE LD Ly (HL) 

3036 = L1BC’ 7A LD AyD 

3037s LIB’ £4 40 AND 040 

3038 IBF’ 67 LD HA : RETURN KEY IN L WITH RAW BO IN H 
3039 s«11C0’ C9 SCNNEX? RET 

3040 J oman 

3041 } 

3042 MBressriissticerticsssscte ion 

3043 «11C1’ CD AM4Ay CTABP! CALL —UDKJS } DISPATCH # 2E 

3044104" FD 21 7307 LD «LY, CSTATP $ PROCESSOR FOR THE GAME CONTROLER TABLES 
3045 1108" DD 2A 8008 LD ©-»«sTX,0B008) «TABLE POINER IN IY, RESULT POINER IN IX 
3046 = 110’ DD ES PUSH IX 

3047 11CE’ DD 7E 00 LD Ay IX#000) GET CONTROL FLAGS 

3048 © 11D1’CR 7F BIT = 7yA + IF NO BIT 7, DON’T USE THE STATE MACHINES 
30491103’ 28 JE JR Z,CTAB2 

3050 ; 

3051105’ 47 LD BA + ELSE, POSITION IX FOR RESULT 
30521106’ 11 0002 LD = BE,00002 

3053 1109’ DD 19 ADD IX, DE 

3054 ; 

3055  11DR’ £4 07 AND = 007 

3056 = LIDD’28 09 RZ, CTABL + IF ANY ENABLE BITS AT ALL, 

3057 ; 

3058 «= 11DF’ 3A 73EE LD Ay (JS1SH) + GET LAST JOYSTICK SHADOW 

3059 «11221 73EB LD = HLy CNT 

3060 MES’ CD 1220’ CALL JBITS } AND GO PROCESS BITS 

3061 L1E8’ 78 CTAB: LD = WB 

3062-1189’ ES 18 AND (OB } NOW SEE IF BITS TO ENABLE KEYPADS 
3063 LIER’ (28 06 JR Z,CTAB2 

3064 _ ; 

3065 LED’ 3A 73F0 LD Ay (KP ISH) } IF SO GO SEE IF ANYTHING NEW 
3066 «11FO’ CD 123F’ CALL BITS 

3067 113’ DD El CTAB2: POP = IX } RESTORE IX 

3068 «= 11F5’ DD 7E O1 LDA, (TX#001) 

3069 = sLIF@’ CB 7F BIT = 7,A 

3070 © 11FA’ 28-23 BR, CTXXIT 

3071 ; 

3072 AMFC’. 47 LD ByA 

3073 «11FD’ 11 000A LD CDE, 00008 $ MOVE IY TO NEXT TABLE 

3074 = 1200’ FD 19 ADD LY, DE . 
3075 ; 

3076 1202.11 0007 LD ——_—BE,00007 + MOVE IX TO NEXT TABLE 

3077 1205’ DD 19 ADD IX,DE 

3078 

3079 1207" «EB 07 AND = 007 } SAME AS ABOVE, BUT FOR OTHER CONTROLLER 
3080 12097-2809 JR 


Z,CTABS 
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3081 ; 

3082 1208’ «3A 73EF LD Ay (JS2SH) 

3083 «1206-21 73EC LD HL PENT2 

3084 = 1211’ CD 1220° CALL © JBITS 

3085 = «1214’ 78 CTABS! LD AyB 

3086 ©1215’ «ES 18 AND == 018 

3087 121728 06 RZ, CTXXIT 

3088 3 ; 

3089-1219’ 3A 73F1 LD Ay (KP2SH) 

3090 = 121’ CD 123F’ CALL BITS 

3091 «121F’ CTXXIT! RET 

3092 $e 

3093 

3094 PBtssrsessssrsretertireess sss 

3095 1220’ aF JBITS! LD CyA } PROCESS THE BITS FROM THE JOYSTICK 
30% = 1221" CR 48 BIT 158 } SELECT 

3097 1223’ 28 04 SR BL 

3098 ; 

3099 1225’ CD: 1289” CALL JOYSP + IF BIT 1, GO DO JOYSTCK STATE PROCESSOR 
3100-1228’ 79 LD ANE + THE STATE PROCESSORS LOOK FOR CHANGES 
3101 } 

3102-1229" CR 40 JBLS. BIT Oy 

3103 1228’ 28 04 JR 7, JB2 

3104 ; 

3105 1220’ cD: 1289” CALL JFIRE } IF BIT 0) RUN STATE. PROCESSOR FOR THE 
3108 1230’. 79 WAN } FIRE BUTTON THAT COMES IN WITH THE STICK 
3107 ; 
3108 = «1231’ CB 50 JB2: BIT 2B 

3109 1233’ 28 09 JR, JBXXT 

3110 ; 

3111 1235’ 7E LD AY CHL) + IF BIT 2, INCREMENT TABLE COUNTER 
31121236’ DD 86 02 ADD Ay (1X4002) 

3113-1239" BD 77 02 LDC 1X#002),4 

31141230’ AF XOR A 

3151230’ 7 LD (HL) yA 

31161288’ cpt JBXXT! RET 

3117 $ ——-—--—----—---------— 

3118 ; 

3119 PB tsvestisssestistisrererticss | 

3120 «120F’aF KBITS! LD CyA } PROCESS THE BITS THAT COME IN ON THE 
3121 1240’ CB SB BIT 3B } KEYPAD SELECT 

31221242’ 28 04 JR KBI 

3123 ; 

31241244’ CD 1269” CALL FIRE } IF BIT 3, GO RUN THE STATE PROCESS FOR 
31251247" 79 LD ANE } THE FIRE BUTTON ON THE KEYPAD SELECT 
3126 ; 

31271248’ CB 40 KB1t BIT) = 4yB 

31281244’ B03 JR Ly KBXXIT 

3129 ; 

3130-1280’ cD -1250" CALL _KEYSP } IF BIT 4, GO RUN KEYPAD STATE MACHINE 
3131 «124F” 9 KBXXIT! RET 

3132 oo 

3133 ; 

3134 MB ticssssssesctistitericst gsc} 

313512850’ CS " KEYSP! PUSH © BC KEYPAD STATE PROCESSOR 


“se 


3136 1251’ 0 , PUSH =o. IN OUT 
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3137, 1252’ «ES PUSH HL $ (TY$9) (1Y#8) (149) CTY#8) (1X44) 
3138 1253’ £4 OF AND «OOF $ OO OANOF 0 9 AROF -~ 
3139 1255’ F LD EyA 6 60 =AWF --- 0 -e 
3140 1256’ FD 46 08 LD By (1¥#008) $ =0 <OAROF --- AROF 9 -—- 
3141 1259’ FD 7E 09 wD Ay (IY#009) + =) =sANF 1 --- KEYCODE 
3142 125C' FE 00 cP 000 . 

3143. 125E’ 20 1A R NZ,KSP2 

3144 ; 

3145-1260’ 7B LD AyE 

3146 1261’ BB cP B 

3147-1262’ 28 JR Z,KSP1 

3148 ; 

3149 1264’ FD 73 08 LD (1Y#008) »E 

3150 12467’ 18 1C JR KSXXIT 

3151 ; 

31521269’ 3E OL KSP1; LD Ay001 

3153 126R’ FD 77 09 LD (1Y#009) yA 

3154 1266’ 21 10F5’ LD HL yKEYTAB 

3155 1271’ 16 00 LD D000 

3156 1273’ 19 ADD = HL DE 

3157 1274’ 7E LD Ay (HL) 

3158 = 1275’ BD. 77:04 LD (1X4004) 9A 

3159 1278’ 18.08 JR KSXXIT 

3160 ; 

31461 127A’ 7B KSP2} LD AyE 

3142 1278’ BB cP B 

3163 1270’ 28 07 aR ZyKSXXIT 

3164 ; 

3165 127E’ FD 73:08 LD (1Y#008) ,E 

3166 1281’ AF YOR A 

3147 1282 FD 77:09 LD (I¥#009) pA 

3168 1285’ El KSXXIT! POP HL 

31469 1286’ DL POP) séOME 

3170 1287’ C1 PoP =—s-B 

3171 1288’ C9 RET 

3172 J mmecn mre nnn nena 

3173 . H 

3174 PB tessterecsecseseiiesesrece ts 

3175 1289’ C5 JFIRE! PUSH BC + JOYSTICK FIRE BUTTON STATE PROCESSOR 
3176 128A’ 05 PUSH ODE } IN OUT 

3177, s«128B’ ES 40 AND = 040 § (TY#0) (IY#1) (1Y#0) (1Y#1) CIX+0) 
3178 1280’ oF LD EyA + OAMO <0 Ag4O 0 -- 
3179 128E’ FD 46 00 LD B, (IY#000) + A840 OO wee ee 
3180 1291’ FD 7E 01 LD Ay (IY#001) + OA =0 AR4Q ——- 
3181 1294’ FE 00 cP 000 + AsO =0 -- 1 A840 
3182 1296’ 2% 13 JR NZ, JFR2 

3183 ; 

3184 1298’ 78 LD AYE 

3185 1299" BB cP B 

3186 129A’ 28:05 JR Z,JFR1 

3187 : 

3188 1290’ FR 73 00 LD (1¥#000) »E 

3189 129F’ 18 15 JR JFXXIT 

3190 7 

3191 12A1’ JE OL JFRIS LD A,001 

3192 1243’ FD 77 O1 LD (IY#001) 94 
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3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 


1206’ 
12A9° 


T2AB" 


12ac’ 
12AD¢ 


2AF’ 
1282’ 
1283’ 
1286! 
1287’ 
1288’ 


1289’ 
12BA’ 
1288’ 
1280’ 
12BE’ 
1201’ 
1204’ 
1206’ 


1208’ 
12C9’ 
120A’ 


120’ 
12CF ’ 


1201’ 
1203’ 
1204’ 
1209’ 


1208’ 
120C’ 
12D’ 


120F’ 
12£2’ 
12E3’ 
12E6’ 
12E7’ 
12E8’ 


12E9’ 
12EA’ 
12EB’ 
12ED’ 
i 2EE* 
12F 1’ 


HACRO-80 3.4 


a 


SOI SBS SATIASsKA 
ase 
as 


SBoH 
Save ua B 
2a 8 


Yas 
8 


SLeS%a BSS 
g 


JIMORA 
ak 3S 
2k 


01-Dec-80 PAGE 1-57 . D-58 


LD CTX4000) »E 
JR JFXXIT 
; 
JFR2¢° LD AYE 
cP B 
BR 2, JFXXIT 


we 


LB (TY+000) ,£ 

XOR A 

LB (TY+001),A 
JFXXIT? POP DE 

POP BC 


’ 
? 
f EXRSERSEATLASELATIATT LST ESE 
JOYSP! PUSH BC 

BE 

00F 

E,A 

B, (1¥+002) 

Ay {1Y+003) 

000 

NZ, JYSP2 


JOYSTICK POSITION STATE PROCESSOR 
IN _ OUT 
(I¥43) (1¥#2) 0 (TY#3) (142) (1X41) 
OO  OANF 0 Ag0F  --- 
0 SALOF owe eee 
=0 OANF ~~~ AROF w= 
=0 = =AR0F 1 --- —AROF 


ee ee we ne Te we Ue 


ws 


AyE 
B 
Z,JYSP1 


<e 


(TY+002) ,E 
JYXXTT 


e 


’ 
JYSP1i Ay001 
(TY+003) pA 
(TX4001) 5E 


JYXXIT 


AyE 
B 
2» JYXXIT 


ee 


(TY+002) ,E 
A 

(TY#003) »A 
DE 


AZPZS_S BIG SESE SG SSG BSGEEES 


ead 


PERL Essessscssscs ste bereds tics | 
KFIRE: PUSH BC > STATE PROCESSOR FOR KEYPAD FIRE BUTTON 
PUSH =—soDE , IN OUT 

040  (IY#7) (TY+6) (1Y#7) (TY+6) (1X43) 
E,A + OO OAMO ) AR4O --- 
By {T¥#006) > 0 A840 Sain Ser, 
Ay (T¥+007) > =O OAMO -- AHO --- 


GGGSE 


3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
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12F4/ 
12F 6’ 


12F8/ 
12F9’ 
12FA‘ 


12FC’ 
L2FF’ 


1301’ - 


1303’ 
1308’ 
1309’ 


1308’ 
1300" 
130’ 


130F’ 
1312’ 
1313’ 
1316’ 
1317" 
1318’ 


1319’ 
1310’ 
ISIF’ 
1321’ 
1324’ 
1327’ 


132A’ 
1320’ 
1330’ 
1331’ 
1332’ 
1333’ 
1335’ 
1337' 
1338’ 
13539’ 
1330’ 
133F’ 
1341’ 
1342/ 
1343’ 
1347’ 
1349’ 
1c’ 
i34D’ 
134E’ 
134F’ 


MACRO-80 3.4 


FR 73 06 


FD 77 07 
Dl 
C1 


21 0000 
{1 4000 
3E 00 

Ch 1804’ 
CD 1869’ 
CB 1927’ 


21 18A3’ 
11 0060 
ES 

i) 

7E 

FE FF 
28 1B 
7 

04 

21 1403’ 
11 0008 
10 15 
BL 

BS 

FR 21 0001 
%E 03 
CD LFBE’ 
Dt 

El 

13 

23 


O1-Dec-80 PAGE = 1-58 
cP 000 
JR NZ»KF2 
; 
LB AYE 
CP B 
JR ZyKF1 
, 
LD (TY4006) ,E 
JR KFXXIT 
; 
KFiz LD A,001 


LB (TY4007)»A 
LD (IX4003),E 


JR KFXXIT 
; 
KF2;. LB AYE 
CP B 
AR Z pKFXXIT 


a. 


LD (TY+006) ,E 

XOR A 

LD (TY+007) A 
KFXXIT: POP BE 


POP BC 
RET 
; ae en eae Saree ea ee eee eT aN mee 
y 
$ SRERAARAAAAAELT ALTA ITT 
INTRO? LD HL 00000 
LD DE,04000 
LD Ay 000 
CALL FILYR 
CALL =: VINIT 
CALL = FINIT 
’ 
LD HL, GENTAB 
LD DE,00060 
BLKLDI; PUSH = HL 
PUSH =oDE 
LD Ay (HL) 
CP OFF 
BR Z»LDBONE 
LD ByA 
INC B 
LD HL, BLOCKS 
LB DE ,00008 
BLDLP? DJNZ ADVHL 
POP BE 
PUSH =soDE 
LD TY,00001 
LB A,003 
CALL = RCOPYV 
POP DE 
POP HL 
INC DE 
INC HL 


* 
’ 


* 
’ 


=0 = =AE4O i pam 


PUT UP THE INTRODUCTION SCREEN 


FILL ALL OF VRAM WITH O 
SET UP THE VIDEO CHIP AND VRAM ALDRESSES 
INIT THE FONT STORAGE 


NOW LOAD THE PATTERN GENERATOR VRAM 


WITH THE PATTERNS FOR THE BIG BLOCK 
CHARACTERS 


WHEN WE GET OFF FROM TABLE, 
IT MEANS WE ARE DONE 


PATTERNS FOR THE BIG BLOCK CHARACTERS 


3305 
3306 
3307 


3309 
3310 
Bil 
3H2 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 





3326 
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1350’ 


1382’ 
1353’ 
1334’ 


1356’ 
1357’ 


1359’ 
135C’ 
135F’ 
1343’ 
1365’ 


1348’ 
13468’ 
136E’ 
1372! 
1374’ 


1377’ 
137A’ 
1371’ 
1381’ 
1383’ 


1386’ 
1389’ 
138C’ 
1390’ 
1392’ 


1395’ 
1398’ 
1398’ 
1390’ 
13AL’ 


1384’ 
13A6! 
1348" 


13AB‘ 
13AE’ 
13AF’ 
13B1’ 
13B3’ 
13B4’ 
1385’ 
1387’ 


1389’ 
13BC’ 


MACRO-80 3.4 


18 DE 


ni 
El 
18 03 


19 
18 Eé 


21 1440’ 
11 0085 
FD 21 0016 
02 

CD iF BE’ 


21 1463’ 
11 00AS 
FD 21 0016 
3E 02 

CD iFBE’ 


21 1401’ 
11 0098 
FD 21 0002 
3E 02 

CD 1FBE’ 


21 14B4’ 
IL O2AA 
FD 21 0000 
3E 02 

CD 1FBE’ 


21 1438’ 
11 0000 
3E 04 

FD 21 0012 
CD iFBE’ 


06 01 
O€ CO 
CD 1FD9’ 


21 8000 
7E 

FE AA 
20 4 
23 

7E 

FE 55 
20 46 


21 8024 
CD 1944’ 


0i-Bec-80 


eo 


<“ 


ee 


we 


we 


we 


a ae 


S666 EGGGe EeGGG 


PAGE 


SGEGG $6666 8 
F = E 


S66 
= 


SS852593665 


LD 


1-59 


BLKLBL 


BE 
HL 
LDNAHE 


HL,DE 
BLILP 


HL »NTABL 

DE ,00085 

TY »NTAB2-NTABL 
A,002 

RCGPYV 


HL »NTAB2 

DE yO00AS 

TY, TABEND-NTAB2 
A, 002 

RCOPYY 


HL, TMCHRS 
DE,0009B 
TY ,00002 
A,W2 
RCOPYV 


HL ,CPRMSG 
DE ,002AA 
TY,0000D 
A,002 
RCOPYY 


HL» CLRTAB 
BE,00000 
A004 
IY,00012 
RCOPYV 


By001 
C,0CO 
WRTRGY 


HL »STFADR 
Ay (HL) 
OAA 
NZ,PTEXT 
HL 

Ay (HL) 
055 
NZ,PTEXT 


HL 08024 
SCAN2E 


' 
' 


¢ 
' 


* 
’ 


. 
’ 


. 
t 


ee Oe Oe Ee Te we 


* 
’ 


D-60 


ADVANCE HL BY DE 


NOW LOAD THE PATTERN NAME TABLES 


LENGTH 
CODE FOR NAME TABLE BLOCK 


LENGTH 


PUT IN THE SMALL TH CHARACTERS 


THE COPYRIGHT MESSAGE 


NOW THE COLOR TABLE 


UNBLANK THE SCREEN 


IF THE FIRST 16 BITS OF THE 
CARTRIDGE ARE OSSAA, THEN 

60 GET NAME STRING AND INTRODUCE, 
IF NOT THERE GO PRINT THE TEXT 
TO TELL THE USER. TO TURN THE 

THE MACHINE OFF BEFORE INSERTING 
THE CARTRIDGE 


GO FIND THE NAME STRING 
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3361 
3362 
3363 
3364 
3365 
3366 
3367 
3388 
338? 
3370 
3371 


3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
34i1 
3412 
3413 
3414 
3415 
3416 


L3BF’ 
1302 
133’ 
1308" 
15CB’ 
13CE’ 
13CF’ 
130’ 
13p1’ 
1304’ 
1307’ 
13nA’ 
1gnp’ 
13E0! 
1381’ 
1364’ 


1365’ 
1388’ 
13EC’ 


‘ASEE’ 


13F1! 


13F4’ 
13F6’ 
13F8’ 


13FR’ 
L3FE’ 


13FF’ 
1402’ 
1405’ 
1409” 
1408’ 


140E’ 
1411’ 
1414’ 
1418’ 
141A’ 


14in’ 
1420’ 
1423’ 
1427’ 
1429 


1420’ 
142F” 


1432 
1434 
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11 8024 
21 0201 
CD 1951’ 
21 8024 
CD 1946’ 
23 
54 
3B 
CB 1946’ 
21 0101 
CD 1951’ 
21 8024 
CD 1946’ 
23 
CB 1946’ 
23 


ii o2AC 
FB 21 0004 
3E 02 

CD iFBE’ 


CB 1948’ 


06 01 
OE 80 
CD 1FD9’ 


2A 800A 
E9 


21 1479’ 
11 O1AA 

FD 21 0003 
3E 02 

CD LFBE’ 


21 1486’ 
{1 O1E4 

FD 21 001A 
3E 02 

CD 1FBE’ 


21 1440’ 
11 0227 
FD 21 0014 
3E 02 

CD IFBE’ 


21 8A00 
CD 196B’ 


06 O01 
OE 80 


01-Dec-80 


ee we we we 


“YO we we 


TEXTS 


=e 


Cd 


Cd 


Crd 


PAGE 


LD 


CALL 
INC 


LB 


CALL 


CALL 
INC 


INC 


= B6665 = 5666 S5 


= &B666 


S& = & 


1-60 


BE ,08024 
HL,00201 
NTBLKC 
HL ,08024 
SCAN2F 
HL 

DyH 

Eyl 
SCAN2F 
HL,OO01C1 
NTBLKC 
HL 08024 
SCAN2F 
HL 
SCAN2F 
HL 


DE,002AC 
TY,00004 
A,002 
RCOPYY 


WAIT 


B,001 
C,080 
WRTRGY 


HL» (CSTART) 
CHL) 


HL, HS61 
DE,OOLAA 
TY,00000 
Ay002 
RCOPYY 


HL »MS62 
DE,OO1E4 
IY,0001A 
A,002 
RCOPYY 


HL »HS63 
DE ,00227 
TY,00014 
A,002 
RCOPYY 


HL ,08A00 
TIMER 


B,001 
C,080 


’ 
’ 


* 
4 


ae hd 


* 
t 


* 
La 


' 
' 


D-61 


PUT STRING ON THE SCREEN 


THIS IS THE PREGAME WAIT EVERYBODY 
HATES TO SIT THROUGH 


BLANK SCREEN BEFORE JUMP TO CARTRIDGE 


PICK UP STARTING ADDRESS IN 
CARTRIDGE ANI! GO TO IT. 


PUT UP THREE LINE HESSAGE 


WAIT FOR USER TO GET THE MESSAGE 


TIME RAN OUT SO TURN OFF SCREEN 


3417 
3418 
341? 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
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1436’ 


1439’ 


1438’ 
143F’ 
1440’ 
1444’ 
1445’ 
1449’ 
144A’ 


1441’ 
1451’ 
1452’ 
1456’ 
1457° 
1458’ 
145C’ 
1460 
1461’ 


1463’ 
1467’ 
1468’ 
1460’ 
1460’ 
1471' 
1472’ 
1476’ 
1477’ 
1479’ 


1479’ 
1470’ 
1481/ 
1485’ 


1486’ 
148A‘ 
148E’ 
1492’ 
1496’ 
149A’ 
1498’ 


14807 
144’ 
1448‘ 
14AC’ 


MACRO-80 3.4 


CD iFD9’ 
18 FE 


00 00 00 FO 
FO 

FO FO FO FO 
FO 

FO FO BO 80 
» 

BO 30 40 


60 61 68 69 


88 89 4 45 
ac 

74 75 70 8A 
85 

aC 8D 


62 63 6A 6B 
72 

73 7A 7B 82 
83 

8A BB 46 67 
6p 

76 77 7D 86 
87 

BE SF 


2 4 
1 43 
F 46 


eFaASF 
saa 
tn oe Of 


49 
52 
47 


SeRRSS 


44 


QPsRass 
avaASAaAa 


Saas 
S338 


S523 
SARH 


01-Dec-80 


PAGE =: 1-41 D-62 
; CALL = WRTRGV 
FORE + JR FOREVR 3 WAIT FOREVER 
3 
CLATAB! DB 000,000,000 ,0F0,0F0 ; COLOR TABLE 
0B OF 0,0F0,0F0,0F 0,0F0 
IB OF 0, 0F0, 000,080,070 
DB 0B0,030,040 
NTABL! DB 060,061,068 069,070 
DB 071,078,079 080,081 
DB 088,089 064 ,065,06C 
074,075,070 ,084,085 
; 08C, 8B 
NTAB2! DB 0627063, 06A,06B,072 
DB 073,07Ay07B 082,083 
0B 08A,08B, 066 067,06) 
0B 076) 077 07D 086,087 
IB O8E , O8F 
TABEND: 
‘ 
HERE COME THE STRINGS 
; 
MSG1; DB “TURN GAME OFF’ 
; 
MS62; DB "BEFORE INSERTING CARTRIDGE’ 
; 
MSG3; BB “OR EXPANSION NODULE, ’ 
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73 
3474 
3475 
3476 
3477 
478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
ul 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3528 


1480’ 


14B4/ 
1485’ 
1489’ 
14Bh’ 


14C1’ 


1403’ 
1407 
14CB’ 
LACE’ 
1403! 
1407’ 
14DB’ 
LDF’ 
143° 
147 
LAER 
14EF’ 
14F3’ 
14F7’ 
14FR’ 
14FF’ 
1503’ 
1507’ 
1508’ 
150F” 
1513’ 
1517’ 
1518’ 
151F’ 
1523’ 
1527 
1528’ 
152F’ 
1533’ 
1537’ 
1538’ 
153’ 
1543’ 
1547’ 
1548’ 
154F’ 
1553’ 
1557’ 
1558’ 
155F’ 
1563’ 
1567’ 
1568! 
156F’ 
1573’ 
1577! 
1578’ 


MACRO-80 3.4 01-Dec-80 


55 40 45 2E 


iD 

20 31 39 38 
32 20 43 4F 
4C 45 43 4F 


| wma 
m 
bene 
7“ 


ASSARSSSSRASSASSSAASSAASSASHASSAVTSSSASSSSAANSSAANSS 
ISBSRLSSSSSRARSSASSSHASSAASSAASSATSSARSSSSAANSSAANSS 
ASHSYSSISSSRSSSASLSASSRASSBSAASSAVSSAASSSSARSSSASS 
JSHBSASSSSSRUSSSASLSSASSHAIASSAYVSSRHSSSASSSSSAIasgsass 


; 
CPRMSE: 


+ 


THCHRS; 


? 
BLOCKS: 


PAGE 


DB 


0B 


DB 
DB 
DB 


DB 


DB 


1-62 D-63 
OD + (0) NAME CODE 

* 1982 COLECO’ 

O1E, O1F * CODES FOR THE SMALL ’TM’ 


000.000 ,000,000,000,000,000,000 
O3F ,07F , OFF OFF ,0F 3, 0F3, 00, 0FO 
000,080 ,0C0,0C0,0C0,0C0,000,000 
O3F ,O7F , OFF OFF ,0F 3, 0F3, 0F3,0F3 
000,080,0C0,0C0,000,0C0,000,0C0 
OF 0 0F 0, 0F0,0F 0,0F0,0F0,0F0,0FO 
OFF , OFF , OFF ,0F 0,0F0, OFF OFF ,0FF 
0£0,0C0,0C0,000,000,000, 000,000 
OF 1,0F 1 ,0F 1 507B,07B,07B, O3F ,03F 
0E0, 0E0,0E0,0C0,0C0,0C0, 080,080 
O1F » O3F » O7F 4079 4078)07F » O7F » O3F 
080000, 0E0,0E0 000,080,000, 0£0 
OF3,0F3,0FB,OFB,OFB, OFF , OFF , OFF 
0C0,0C0,0C0,0C0,0C0,0C0,0C0,0C0 
OF 3, 0F3, OFF ,OFF ,07F ,03F , 000 ,000 
0C0,0C0,0C0,0C0,080,000, 000,000 
OF 0,0F 0, OFF ,OFF , OFF ,OFF , 000,000 
000,000,0C0,0C0,0C0,0€0,000 000 
O3F  O1F , O1F O1F y00E,00E, 000,000 
180,000,000 000,000,000, 000,000 
OF 0 OF 0, OF 0 ,0F0,0F0,0F0, 000,000 
O1F 001 ,079,,07F ,O3F ,01F , 000,000 
0E0, 0E0,0E0,0E0,0C0,080, 000,000 


OFF ,OF7, OF? ,0F7,0F3,0F3, 000,000 


‘ 
' 


. 
’ 


PATTERNS FOR THE BIG BLOCK 


CHARACTERS 
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3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 


1S7F’ 
1383’ 
1387’ 


1588’ 
158F’ 
1593’ 
1597’ 
1598’ 
159F’ 


1583’ 
15A7’ 
SAB’ 
LSAF’ 
1583’ 
1587’ 
15RB’ 
1SBF’ 
15C3’ 
15C7’ 
15CB’ 
{SCF ’ 
1503’ 
1507’ 
15DB‘ 
150F’ 
15E3’ 
15E7’ 
15EB’ 
1SEF’ 
15F3’ 
15F7’ 
15FB‘ 
1oFF’ 
1603’ 
1607’ 
160’ 
160F’ 
1613’ 
1617’ 
161B’ 
161F’ 
1623’ 
1427’ 
1628’ 
162F’ 
1633’ 
1637’ 
1638’ 
163F’ 
1643’ 
1647 
1648’ 


MACRO-80 3.4 


sea 
ea 
eee 
23¢g 


StSsnFetA 
SS3S232 
Sf@se2re 
SLSLHz 


sss 


SSSISVISSSESSessssusysysss 


SSSSSIIRSSSSSSSSISSSIVSVSYSysSSESRBSYSYBse 
o 


SBSSRSSRSSSSSSSISVIVSSSSSSESRSSRASBALYYUSYSvse 


SSHSSSSSISSISSVSSSSESSRVAVSVSSvsSzeewpesyUsuyrvrees 


SSSseseyuszsneses 


oo 
~ 
oO 
3 


~_ 
co 
wo 
Qo 
oS 
oO 


01-Bec-80 


“Th we we 


oe 


PAGE 


BB 


DB 


DB 


DB 


DB 


1-63 
0C0, 000,000 ,0C0,000,000,000,000 


O7E, 081 ,OBD,0A1,0A1,0BD, 081 ,07E } 
O1F 004,004 ,004,000,000,000,000 } 
044, 06C, 054 ,054,000,000,000,000 } 


0000001000 000,000,000,000,000 + 
0200207020,020,020,000,020,000 } 
0507050050 ,000,000,000,000,000 + 
050,050, 0FB,050,0FB, 050,050,000 ; 
020,078,040 ,070,028,0F0,020,000 $ 
000) 0C8y0107020,040,098, 018,000 $ 
0407 0A0 1 0A0»040,0A8,090, 068,000 } 
02010201020 ,000,000,000,000,000 } 
020,040,080,080,080,040,020,000 } 
0207010,008,008,008,010,020,000 } 
020; 0ABy070»020,070,0A8, 020,000 } 
000,020,020,0F8,020,020,000,000 } 
0001000000 ,000,020,020)040,000 $ 
000,000,000 ,0F8,000,000,000,000 } 
00070007000 ,000,000,000,020,000 } 
000,008,010 020,040,080,000,000 } 
070,088,098, 0A8,0CB, 068,070,000 ; 
02070604020 ,020,020,020,070,000 ; 
070,088,008 ,030,040,080,0F8,000 } 
OF By 00870107030,008,088,070,000 } 
010,030,050 ,090,0F8,010,010,000 


OF 8,080, 0F0,008,008,088,070,000 } 


(c) 


D-64 


SNALL T FOR TM 


SMALL M FOR TH 


SPACE 
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3585 
3596 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600: 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3421 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 


164F’ 
1657’ 
1657’ 
1658’ 
165F’ 
1643’ 
1667’ 
166R’ 
166F’ 
1673’ 
1677’ 
1678’ 
167F’ 
1683’ 
1687’ 
168R’ 
148F’ 
1693’ 
1697’ 
169R’ 
169F’ 
1643 
1647’ 
16AR’ 
LOAF’ 
1683’ 
1687’ 
1é6BR’ 
16BF’ 
16C3’ 
16C7' 
16CR’ 
1éCF’ 
1603’ 
1687’ 
16nR’ 
160F’ 
16E3’ 
16E7’ 
16ER’ 
16eF’ 
16F3’ 
16F7’ 
16FR’ 
1SFF’ 
1703’ 
1707’ 
1708’ 
170F’ 
1713’ 
1717’ 
171B" 
171F’ 
1723’ 
1727’ 
172R’ 


MACRO-80 3.4 


SOO 
Oo 2 
iS 
od 


SBSSSSSSSSSSSSSSSIYSLSRBSRSS 
SSSISSSSSysssSSSSSSSSSSszsys 


eomaoo so O° 8 
ses 


oo OOO a 


SSABSBSARVSASSSSSASSESSSSSSSRSSIZBSVS 
sS 


SPSSSSSSSYSBSSSSVSSVBSSsSSsRVBRSSsBSRBSERB 


io =] 

oS 

s 
Sas 


I ca 


88 


2 
So 
2 
Ss 
fe] 
> 
onon 


SSISSSSRSSESSRSB 
SSSSSRSRSSSSSSBS 
B2SLISLSRSISRSIB 
SBSISRSRSBSSSOSS 


01-Dec-80 


PAGE 


DB 
DB 
DB 


BB 


BB 


DB 


DB 


BB 


DB 


DB 


DB 


DB 


0B 


IR 


OB 


DB 


DB 


DB 


BB 


OR 


DB 


038,040,080, 0FO .088,088,070,000 5 
OFB,008,010,020,040,040,040,000 ; 
070,088,088 ,070,088,088, 070,000 + 
070,088,088 ,078,008,010,0E0,000 ; 
00010001020 ,0007020,000,000,000 5 
000,000,020 ,000,020,020,040,000 ; 
010,020,040 ,080,040,020,010,000 ; 
000,000, 0F8,000,0F8,000,000,000 ; 
040)020,010,008,010,020,040,000 + 
07070887010 ,020,020,000,020,000 + 
070,088, 0A8 ,0B8,0B0,080,078,000 + 
020,050,088 ,088,0F 8,088, 088,000 ; 
OF 0,088,088,0F 0,088,088, 0F0,000 + 
070,088,080 ,080,080,088,070,000 ; 
OF 0,088,088, 088,088,088, 0F0,000 ; 
OF 8,080,080 ,0F 0,080,080, 0F8,000 + 
OF 8,080,080 ,0F0,080,080,080,000 + 
078,080,080 ,080,098,088,078,000 ; 
088,088,088 ,0F 8,088,088, 088,000 + 
07070207020 »020020,020,070,000 + 
008,008,008 ,008,008,088,070,000 ; 
088, 090,0A0»000,0A0,090, 088,000 + 
080,080,080 ,080,080,080,0F8,000 ; 
088,008, 0A8,0A8,088,088,088,000 ; 
088,088, 08 ,0A8,098,088, 088,000 ; 
070,088,088 ,088,088,088,070,000 ; 
OF 0,088,088 ,0F0,080,080,080,000 ; 


070,088,088 ,088,0A8,090,068,000 ; 


é 


7 


8 


~- 


ad 


D-65 





172F’ 
1733’ 
1737’ 
173R' 
173F/ 
1743’ 
17477 
174’ 
174F? 
1753‘ 
1797’ 
175R’ 
{75F’ 
1763’ 
1787’ 
1768’ 
176F’ 
1773’ 
1777' 
1778’ 
177F’ 
1783’ 
1787’ 
178R' 
178F’ 
1793’ 
1797’ 
1798’ 
179F’ 
173’ 
1747’ 
17AR’ 
17AF’ 
1783’ 
1787’ 
17BR’ 
17BF’ 
1703’ 
1707’ 
17CR’ 
17CF’ 
1703’ 
1707’ 
17DB’ 
170F’ 
17E3’ 


1787" 


17EB’ 
17EF’ 
17F3’ 
17F7’ 
17FR’ 
17FF’ 
1803’ 
1807’ 
1808’ 


MACRO-80 3.4 


SSSSSSESSISRSSSSSSSSSSSASSSESSRSSSSSSSSSSSSSSSESSSSSSAPSSSBIB 


SSSSSSSSPSRBSRBSSSSSSESSSESBSSSVSSSSSESSSSLSSSVSSSSSEYESSSVSVSRSseea 


~ 
SBSISSSSSHSBSBBSSASSSSSSSAHSSARSASSSSSRSSSSALSSSYBSHYSSSVSSSSSvsVsss 


SSSSSSVSVSSSSSSSSSSSSSSSRISRSSYSSSVSSSNSVSVSEsessssusysss 


01-Bec-80 


PAGE 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


ss 3S 8 8S 8S 8&8 8 


OF 0,088,088, 0F0,0A0,070,088,000 ; 
070,088,080 ,070,008,088,070,000 ; 
OF By 020,020 ,020,020,020,020,000 5 
088,088, 088,088,088,088, 070,000. > 
088,088,088 ,088,088,050,020,000 + 
088,088,088 ,0A8,0A8,0D8, 088,000 ; 
088,088,050 ,020,050,088, 088,000 5 
088, 088,050 ,020,020,020,020,000 + 
OF8, 008, 010,020,040,080,0F8 000 ' 
OF 8,000,000 ,0C0,000,000,0F8,000 ; 
000,080,040 ,020,010,008, 000,000 ; 
OFB, 018,018 ,018,018,018,0F8,000 ; 
000,000,020 050,088,000,000,000 ; 
0007000» 000 ,000000,000,000,0F8 5 
040 ,0207010,000,000,000,000,000 ; 
000,000,070 ,088,0F 8,088, 088,000 5 
00070007 0F0,048,070,048,0F0,000 ; 
000,000,078 ,080,080,080,078,000 ; 
000)000,0F0 ,048,048,048,0F0,000 ; 
000,000, 0F0,080,0E0,080,0F0,000 + 
000,000,0F0,080,0E0,080,080,000 ; 
000,000,078 ,080,0B8,088,070,000 ; 
000,000,088,088,0F8,088,088,000 ; 
000,000, 0F8,020,020,020,0F8,000 ; 
000,000 »070,020,020,0A0,0E0,000 } 
000,000,090 ,0A0,000,0A0,090,000 5 
000,000,080 ,080,080,080,0F8,000 ; 


000,000,088 ,0D8,0A8,088,088,000 ; 
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3697  180F’ AB BB 88 00 
3698 1813’ 00 00 88 C8 BB ——-_000,000,088,0C8,048,098,088,000 } n 
3699 1817" AB 98 88 00 | 7 

3700 1818’ 00 00 FB 88 BB 000,000, 0F8,088,088,088,0F8,000 } 0 
3701 «ABIF’ «88 8B FB 00 

3702 1823’ 0 00 FO 88 000,000, 0F0,088,0F0,080,080,000 + p 
3703 1827" FO 80 80 00 

3704 1828’ 00 00 FB 88 DB 000,000, 0FB,088,0A8,090,0E0,000 + q 
3705 182F’ AB 90 £0 00 

3708 1833’ 00 00 FB 8B DB 000,000) 0F8,088,0F8,0A0,090,000 } r 
3707 «1837 FB AO 90 00 

3708 1838’ 00 00 78 80 DB ——-_000000,078,080,070,008,0F0,000 + s 
3709 —«183F’ 70 08 FO 00 

3710 1843’ 00 00 FB 20 DB 000,000, 0FB,020,020,020,020,000 + t 
37111847’ 20 20 20 00 

3712 1848’ 00 00 88 88 DB 000,000) 088,088,088,088,070,000 } u 
3713 «184F’ «88 88 70 00 

3714-1853’ 00 00 88 88 DB 000,000, 088,088,090,080,040,000 } v 
37151857’ 90 A0 40 00 

3716 1858’ 0 00 88 88 DB ——-_000,000,088,088,0A8,008, 088,000 } w 
3717 «185F’ AS 18 88 00 

3718 1863’ 00 00 88 40 DB 000,000, 088,060020,060,088,000 } x 
3719 1867’ 20 60 88 00 

3720 186B’ 00 00 88 50 000,000,088 ,0507020,020)020,000 } y 
3721 186F’ 20 20 20 00 

3722 «1873 00 00 FB 10 000,000, 0FB,010,020,040,0FB,000 + z 
3723 1877’ 20 40 FB 00 

3724 1878’ 38 40 20 CO 038, 0407020,0C0,020,040,038,000 $ < 
3725 187F’ 20 40 38 00 

3726 1883’ 40 20 10 08 DB ——-_-040y020)010,008,010,020,040,000 $ > 
3727 1887’ 10 20 40 00 

3728 © 18RB’ «ED 10 20 18 DB ——-_-0E0y010)020018,020,010,0E0,000 + + 
3729 «188F’ 20 10 0 00 

3730 1893" 40 AB 10 00 DB 040, 0A, 010,000,000,000,000,000 + ” 
3731 189700 00 00 00 

3732 1898’ AB 50 AB 50 DB 0B, 050)0A8,050,0A8,050,0A8,000 ; CHECKER BLOCK 
3733 «189F’ AB 50 AB 00 

3734 ; 

3735 ; 

3738 1803’ OL 02 OE OF GENTAB! DB  --001,002,00E,00F,008 ©} POSITIONER CODES FOR BLOCK 
37371887’ 08 : 
3738 «= 18AB’ 09 12 13 03 DB ——-009,012,013,003,004 —$ CHARACTERS 
3739 = «18AC’ 04 

3740 18AD’ OE OF 05 14 DB ——-00E,00F , 005,014,000 

3741 1BB1’ (00 | 

3742 1882’ 00 05 00 10 DB —-_000,005,000,010,011 

3743 «19B4" I 

3744 1887’ OA OB 15 16 DB 00, 008, 015,016,004 

3745 «18BRY 08 

3746 1BBC’ 07 10 11 05 DR ——-007,010,011,005,014 

3747180’ 14 

3748 ©1801’ 00 00 OL 02 | TB 000,000,001 ,002,00E 

37491805’ OE , 

3750 1804’ OF 03 04 OE DB 00F ,003,004,00E,00F 


Wl 18CA’ OF 
3752 18CB’ 03 04 OE OF : OR 003,004, 00E ,OOF ,00C 
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18CF’ 
18b0’ 


184’ 
1805’ 
1804’ 
1808’ 
1809’ 
18DR’ 
18DB‘ 
18DE’ 
18E0’ 
18E1’ 
18E2’ 
18E3’ 
18E5’ 
18EB’ 


18E9’ 
18EB’ 
18En’ 
18F0’ 
18F2’ 
18F4’ 
18F7’ 
18F9’ 
18FC’ 
18FF’ 
1901’ 
1904’ 
1907’ 
1909’ 
190C’ 
190F’ 
191’ 
1914’ 
1917’ 


"1919° 


191C’ 
191F’ 
1921’ 
1923’ 
1926’ 


1927’ 


1920’ 
1931’ 
1933’ 
1936’ 
1939’ 


MACRO-80 3.4 


ec 
OD 17 18 FF 


mam RS R 


n" 


SBSSRSERsaocaakark 
a° 


21 1588’ 
11 001D 
FB 21 0060 
3 03 

CD 1FBE’ 
21 1543’ 
11 0000 


O1-Dec-80 PAGE 


Lvs J 
ow 


—— ae 


FILVR? 


ReeSGRESESGREE 


e 
bd 
e 


1-67 


000,017,018, 0FF 


CyA 

AyL 
(VBPR),A 
AyH 

040 
(VDPR) yA 
AyC 
(VRAM)»A 
BE 

AyD 

E 
NZ,$-00A 
RDVSTY 


’ 
Pisisssstbsssisstrssssese des! 


VINIT? LD 


RESCREEGES FESREG 





B,000 
C,000 
WRTRGY 
B,OOL 
C,080 
WRTRGY 
A,002 

HL »01800 
BASLDV 
A004 
HL,02000 
BASLDV 
A,003 

HL 00000 
BASLIV 
4,000 

HL, O1B00 
BASLDV 
Ay001 

HL ,03800 
BASLDV 
B,y007 
C,000 
WRTRGY 


; 
; 
j SERREASEASIELLAAATAIT ATTA 
F 


INIT: LD HL »CPYWT 
LD. DE,0001D 
LD TY,00060 
LB. Ay003 
CALL = RCOPYY 
LD HL, FONT 
LD 


DE,00000 


=~ 


we we we 


eo ae we 


— «- <e 


=e 


> 
’ 


* 
’ 
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DISPATCH # 0B 


FILL VRAM, HL=START ADDR TO FILL 
+ Es # OF LOCATIONS TO FILL 
Az FILL VALUE 


O18DD 


DISPATCH # 0C 
INITIALIZE THE VIDEO CHIP 
MODE 0, AND NO EXTERNAL VDP INPUT 


16K »BLANKING,NO INTERRUPT,8X8 SPRITES 
MAGO SPRITES 1X 
NAME TABLE AT 1800 


COLOR TARLE AT 2000 
PATTERN GENERATOR AT 0 
SPRITE ATTRIBUTE AT 1800 


SPRITE PATTERN GENERATOR AT 3800 


SET ALL COLORS TO 0 


DISPATCH # 0A 
COPY (C) TABLE INTO RAM 


NOW THE MAIN FONT 
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3809 «193C’ FD 2t 0001 LD ss TY,00001 





























~ 3810 1940’ 3E 03 LD A003 
3811 1942’ CD IFBE’ CALL = RCOPYV 
3812 1945’ C9 RET 
3813 {- en 
3814 : 
3815 PBS essoctsesesstssitsisest sees 
3816 1946’ 01 0000 SCAN2F? LD BC,00000 + ADVANCE POINTER HL UNTIL HL 
3817-1949’ 7E LD Ay (HL) + POINTS TO 02F IN MEMORY, 
3818 194A’ FE OF cP 02F } RETURN COUNT OF SCANN STEPS 
3819 194’ C8 RET Z + IN BC 
3820-194’ 23 INC) OHL 
3821 194E’ 03 INC BC 
3822 194F’ 18 Fa wR $-00OA + 01949 
3823 J mer nr nen nn nn nn nase enn nen 
3824 ; 
3825 HB SSteciceteessetiiesssere cess 
3826 1951’ C5 NTBLKC? PUSH BC + ROUTINE USED TO COPY SHORT STRINGS 
3827 1952’ FI El POP IY + TO NAME TABLE MEMORY,  IY=BC 
3828 ; 
38291954’ SE 20 LD Ay020 $ HL=HL+(020-C)/2 
3830 1956’ 99 SBC ArC 
3831 1957’ 1F RRA 
3832 1958’ 06 00 LD By 000 
3833 195A’ 4F LD CyA 
3834 195B’ 09 ADD HL, BC 
3835 ; 
383461950’ ah Lo ByH > BC=HL 
3837 195D’ 4D LD Col 
3838 195E’ 42 LD HyD } HL=DE 
3839 195F’ 6B LD LyE 
3840 1960’ 50 LD DyB } DE=BC 
3841 1961’ 59 LD E,C 
3842 ; 
3843 1962 3E 02 LD Ay002 $ COPY BLOCK TO NAME TABLE 
3844 1964’ CD 1FBE’ CALL —-RCOPYV 
3845 1967" C9 RET 
3846 : —---------------—- 





ot 
co 
a 
™~ 
“ 


3848 Pet ettdresssresrperbersriveces 

3849 ©1968’ 21-1700 WAIT LD —-HL,01700 } SET TIME WAIT 
3850 © «196R’ 11 OOFF TIMER! LD DE, OOOFF } WAIT HL LOOP TIMES 
3051 —«196E” 1B TIMt! DEC TE 

3852 «198F’ 7A LD AyD 

38531970’ BB o OC 

3054 1971-20 FB JR ONZ, TIM 

30551973’ B DEC HL 

3056 1974’ 7C LD AH 

38571975’ BS oR OL 

3058 1976’ 20 F3 JR sONZ, TIMER 

3059 «1978's RET 

3860 pean 

3061 ; : 

3862 AB itecticsssssrstiitecetsstss 

3863 : } DISPATCH # 09 
3864 1979’ 21-0000 SKLDS! LD —_-HL,00000 + PUT UP THE SKILL LEVEL AND 
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3965 1970’ 11 4000 LD DE,04000 + OPTION SCREEN 
3866  197F’ 3E 00 LD A,000 
3867. 1981’ CD. 1F82' CALL  FILYRV 
3868 1984’ CD LF 85’ CALL -VINITV 
3869 ; 

3870 1987’ 06 «OF LD B, OOF 
3871 1989" OE 04 LD C,004 
3972 «198B’ = CD: AF D9’ CALL WRTRGV 
3873 ; 

3874 «198E’ ss CD.«AFTF’ CALL  FINITV 
3875 H 

3876 «= 1991"—s-21.:1A7C" ob HL ,OPMSG1 
38771994’ 11 0025 LD DE,00025 
3878 «= s«1997’ FD 21 0016 LD IY 00016 
3879 «=: 199R’ E02 LD Ay002 
3880 «1990s CD AFBE’ CALL RCOPYV 
3881 ; 
3882 1900’ 21-1492" LD HL ,OPHSG2 
3883 1983’ 11 0065 LD DE,00065 
3084 19A6’ FD -21.:0017 LD 1Y,00017 
3885  19AA’ 3E 02 LD A,002 
3886  19AC’ CD IFBE’ CALL RCOPYV 
3887 ; 

3988 «86s 19AF’ 11:05 LD DE,000C5 
3689 = 1982’ CB 1ACA’ CALL DSPSKM 
3890 ; 

3891-1985’ 11 0105 LD DE,00105 
3a92 «1988 = CD 1 ACA’ CALL  DSPSKM 
3893 ; 

3894 = 198B’ 11-0145 LD DE,00145 
3895 19BE’ CD 1ACA’ CALL  DSPSKM 
3896 ; 

3897-1901’ 11 0185 LD DE,00185 
3898 «=19C4’—s CD: 1ACA’ CALL DSPSKM 
3899 ; 

3900 = 1907" 11 OLES LD DE,OO1ES 
3901 190A’ CD 1ACA’ CALL  DSPSKM 
3902 ; 

3903 19CD’ = Al 0225 LD DE,00225 
3904 = 19D0’ CD: 1ACA’ CALL DSPSKM 
3905 H 
3906 = 1903’ 11 0265 LD DE,00265 
3907 =—s«19D4’ CD -1ACA’ CALL  DSPSKM 
3908 ; 

3909 «= 1909’ 11 O2A5 LD DE,002A5 

3910 «= «19DC’ = CD-1ACA’ CALL  DSPSKM 
3911 $ 
3912, 19DF’ 11 0105 LD DE,00105 
39131962’ CD 107° CALL BSP2 
3914 $ 
3915 19ES’ 11 0145 LD DE,00145 
39146 1968’ CD 1ADC’ CALL  DSP3 
3917 ; 

3918 «=—s«19ER’ Ss 11-0185 LD DE,00185 

3919 «= 198E’ CDS AEL’ CALL  DSP4 


hed 
ss 
o 
we 


3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3983 
3964 
3965 
3966 
3967 
3968 
3989 
3970 
3971 
3972 
3973 
3974 
3975 
3976 

















CMON. MAC 


19F 1’ 
19F4° 
19F7" 


L9FA’ 
1A00’ 
1A03’ 
1A06' 
109° 
1A0C’ 
LAOF’ 
1Al2’ 


1A15’ 
Lai? 


1A1B’ 


‘TALE’ 


1A21’ 
1A24’ 


1A27’ 
1A2A’ 


1A2n’ 
1A30° 


1A33’ 
1A36’ 


1A39’ 


‘LARC’ 


1AIF’ 
1A42" 


1AaS’ 
1A48’ 


1A4B’ 
IME’ 


1AaL’ 
1854’ 


1A57’ 
1ASA’ 


1ASD’ 
1860’ 


1A63’ 


MACRO-80 3.4 


21 LAC2’ 
11 O1ES 
CD 1AE4’ 


21 1AC3’ 
11 0225 
CD 1AE4’ 


21 1ac4’ 
11 0265 
CD 1AE4’ 


21 LACS’ 
11 02A5 
CB 1AE4’ 


11 OLOF 
CB iAn7’ 


11 O14F 
CD LABC’ 


11 O18F 
CD iAE1’ 


11 O1F1 
CD 1AEE’ 


{1 0231 
CD 1AEE’ 


11 0271 
CD 1AEE’ 


{1 02B1 
CD 1AEE’ 


11 022F 
CD 1AD7’ 


11 026F 
CD iABC’ 


11 O2AF 
CD 1AE1’ 


11 O1FB 
CD 1AFB’ 


11 0238 
CD 1AFB’ 


11 0278 
CD LAFB‘ 


11 0288 


Ol-Dec-80 — 


rd 


—e* 


ae 


od 


we 


rd 


<< 


ee 


a 


~<e 


we 


we 


ae 


+ 


“a. 


“. 


rd 


PAGE 


LB 


CALL 


LD 


CALL 


LB 


CALL 


CALL 


CALL 


CALL 


CALL 


CALL 


CALL 


CALL 


CALL 


CALL 


CALL 


CALL 


CALL 


CALL 


LD 


1-70 


HL, CHRS 
BE,OO1ES 
SHO1 


HL CHR6 
DE,00225 
SHO1 


HL »CHR7 
DE, 00265 
SHO1 


HL» CHR8 
DE,002A5 
SHO1 


DE, OO10F 
DSP2 


DE,OOL4F 
NSP3 


DE,OO18F 
DSP4 


DE,OOIF1 
DSPTWO 


NE, 00231 
DSPTWO 


DE,00271 
DSPTWO 


DE, 00281 
DSPTWO 


DE,0022F 
SP2 


DE, 0026F 
DSP3 


DE,O02AF 
DSP4 


DE ,OOIFB 
SPS 


DE,00238 
DSPS 


DE,0027B 
DSPS 


DE,002BB 


D-71 





3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 





3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4019 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 











CMON. HAC 


3992 


1A66’ 


1Aé9’ 
1AéC’ 
LAGF’ 
1A7t’ 


1874’ 
1A76’ 
1A78’ 
1A7B’ 


1A7C’ 
1A80’ 
1A84/ 
1A88’ 
ABC’ 
1A90’ 


1A92’ 
1A96’ 
LA9A” 
1A9E’ 
1AA2’ 
1AAn6’ 


LAA?’ 
AAD’ 
1AB1’ 
LABS’ 
1AB4’ 
TABS’ 


TABI’ 
LABF’ 
1AC0’ 
1AC1’ 
1AC2’ 
1AC3’ 
1AC4’ 
1ACS’ 
1ACG’ 
LAC?’ 


1ACA’ 
LAC’ 
ADI’ 
1AD3’ 


MACRO-80 3.4 


CD 1AFB’ 


2A 73FA 
11 0020 
SE F4 

CD 1F82’ 


06 O1 
0E CO 
CB IFD9’ 
c? 


ASELaL 
BPYass s 
SR5aR 
Seog 


ZeBSfas 
ERRALSS 
ASRS 

Ssaugd 


31 20 3D 20 
53 4B 49 4C 
4C 20 

31 

oF 

4F 4E 45 20 
50 4€ 41 59 
45 52 

32 

B 

34 

3 

% 

77 

38 

5457 4F 

33 


21 1AA9” 
FD 21 0016 
3E 02 

CD 1FRE’ 


O1-Dec-80 PAGE 


CALL 


—. 


LB 
CALL 


ad 


LD 
CALL 


CP ee we we ae we wo 


PMSG1: DB 


; 
OPHSG2: DB 


LZ 


’ 
SKHSG: DB 
SKILL: DB 


CHRi: ~=oDB 
CHRSLH? DB 
ONESP? DB 
PLAYER? DB 
DB 
DR 


ae Oe ae Z amd Cc? 
25382 
aed oe oe 
Boo 


1-71 D-72 


DSPS. 


HL, (CTASH) 
DE,00020 
A, OF4 
FILVRY 


B,001 + UNBLANK THE SCREEN 
C,0CO 
WRTRGY 


HERE ARE THE STRINGS FOR THE SKILL LEVEL SCREEN 


‘TO SELECT GAME OPTION,’ 


“PRESS BUTTON GN KEYPAD. ’ 


Te! 


“SKILL ’ 


cs Hd 

‘y! 
‘ONE ’ 
"PLAYER’ 


oy 
"y 
'4/ 
ats 
"6! 
7? 
*g/ 
‘Two’ 
g? 


$ SERSEEEATEATLERTT SSE T SLT TT 


DSPSKAS LD 
LB 
LD 
CALL 


HL, SKMSG 
TY,00016 
A,002 
RCOPYV 


4033 
4034 
4035 
4034 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 














CHGN.MAC 


1AD6’ 


1Ag7’ 


LADA‘ 


1ADC’ 
1ADF! 
1AE1’ 
1AE4! 
1AE8” 
1AEA’ 
1AEn’ 


AEE’ 
AFL’ 
LAPS’ 
1AF7’ 
LAFA’ 


AFB’ 
1AFE’ 
1802’ 
1804’ 
1807’ 


1808! 
1B0C’ 


1BOE’ 
1B1i’ 
B14’ 
1B17’ 
1BIA’ 


1BiD’ 
IBiE’ 
1B20’ 
1824’ 
1826’ 
1828’ 


HACRO-B0 3.4 


C9 


21 LARF’ 
18 08 
21 1AC0’ 
18 03 
21 1ACt’ 


FD 21 0001 
3E 02 

CD iFRE’ 
0? 


21 1AC6’ 
FD 21 0003 
% 02 

CD 1FBE’ 
09 


21 1AC9’ 
FD 21 0001 
SE 02 

CD 1FBE’ 
c? 


0002 0001 
0002 


01 1308’ 
11 73BA 
CB 0098’ 
3A 73BA 
2A 73BB 


SSssx 5 
aASSrs 





01-Bec-80 PAGE 1-72 
RET 
$——- —_— 
? 
p SERSSASSATERATARSL TIERS TIT 
psP2; LD HL, CHR2 
JR SHOi 
DSP3; LD HL, CHR3 
JR SHOL 
pSP4; LD HL ,CHR4 
; 
SHO1; = «LD TY,0000! 
LB A,002 
CALL = RCOPYV 
RET 


= 


’ 
’ 
¢ 


$ SESERASEALLALELT ALTE L TIT Te 





DSPTWO: LD HL, TWO 
LB TY,00003 
LD Ay002 
CALL RCOPYY 
RET 
$ -———- anon 
’ 
$ REXREALEALEALELAS ATE E TTT TT 
DSPS} = LD HL, CHRS 
LD TY,00001 
LD A,002 
CALL = RCOPYV 
RET 
§ --------------- — 
; 
D 2yhy2 


OEDAT: Dw 


; 
$ SSSSRAERATRTLAATT TTL TT 
$ 


BASLD: LD BC,DOEDAT 
LD DE,P AREA 
CALL PCOPY 


LD Ay (P AREA) 
LD HL, (P.AREAtL) 


A=REGISTER CODE 
HL=RAW VRAM ADDRESS 


we Ae ee ee HO we we we we 
- 


BASLD; LD CrA 
LD B +000 
LD —sX, BASESH 
ADD TX,BC 
ADB IX, BC 


LB (1X4000) 9b 


* 


+ 


' 


' 
? 


® 
? 


. 
’ 


+ PUT ‘2’ UP AT LOC DE 


+ PUT °3’ UP AT LOC DE 


PUT ’4° UP AT LOC DE 


; COPY ONE CHARACTER TO DISPLAY 


PUT ‘TWO’ UP AT LOC DE 


PUT ’S’ UP AT LOC DE 


DISPATCH # OE 


THIS ROUTINE CONVERTS VRAM ADDRESSES TO BASE ADDRESSES 
AND LOADS THE SPECIFIED VDP REGISTER, 
A SHADOW ARRAY OF ADDRESSES IS KEPT AT 73F2 


(SEE SHIFT TABLE BELOW) 


'y DISPATCH # 1D 
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4089 
4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4098 


4100 
4101 
4102 
4103 . 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
4iit 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
ally 
4120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4135 
4134 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 


1B2B’ 
1B2E’ 
1B31’ 
1B33’ 
{B33’ 
1B36’ 
1838’ 
153A’ 
1B3C’ 
1B3E’ 


1840’ 
1B42’ 
1843’ 
ip44’ 
1346’ 
{B48’ 


1B4A’ 
1B4C’ 


1BAE’ 
1850’ 
B51’ 
1352’ 
iBo4’ 
1B56’ 


1 B58’ 
1 BSA’ 


BSC’ 
1860’ 
1B62’ 
144’ 
1867’ 
LB6A’ 
1B6C’ 
1 BOE’ 
BOF’ 
1B71’ 
1872/ 
1B75’ 


1876’ 
1878’ 
LB7A’ 
1B70’ 
1B7E’ 


1B80’ 


MACRO-B0 3.4 


SBN Bsmss 
SS Qa 


SaAsPraIs 
saz 2 


o 
tw S 


amAsrIz 
S Af a RS 


— > 
om 
oa 


F 


o 


1876’ 


SBSRkASSR 
23 


SS8sesseeedgaga 
3 3 
= 


07 05 
OB 06 
OA 02 
OB 04 
06 03 


0005 9001 


Oi-Bec-80 PAGE 1-73 


(1X#001))H 
A, (VDPOSH) 
1,A 
Z»BSHIFT | 
Aye 

003 

2» PGENII 
004 
Z,SP6II 
BSHIFT 


SSSSSGR8HEG 


“YY we we 


B,004 
AgL 

H 
NZ»PMAX 
C,003 
WRTIT 


C,007 
WRTIT 


B,003 
AgL 

H 

NZ, CMAX 
C,07F 
WRTIT 


: 
S6838366 86 SG6S8S56. 


’ 
CMAX? = LD C,0FF 
R WRTIT 


’ 
BSHIFT: LD IY ,SHFTTB 


LD Ay (TY¥#000) 
LD By (IY#001) 


SHFTLP? SRL H 
RR L 
DEC A 
JR NZ, SHFTLP 
LB Col 

WRTITS CALL = WRTRG 
RET 

; eee nee eee seen enenen newen 

; 

; 

; 

SHFTTB: DB 007,005 

DR 008,006 

DB 00A,002 
OB 008,004 
BB 006,003 


Swe we 


OFDATS DW Selelyly-2y2 


> 
’ 


2 
' 


we we ee 


¢ 
’ 


* 
’ 
’ 
' 
' 
' 
* 
? 
: 
' 


IF NOT IN GRAPHICS II GO SHIFT 
ELSE CHECK FOR DOING PATTERN GEN 
ELSE CHECK FOR DOING SPRITE PATTERN 


G60 SHIFT OUT BASE ADDRESS AND WRITE 
VIDEO REGISTER 


IF HL<>0 THEN SET PATTERN GENERATOR 
ADDRESS TO 7 (THE MAXIMUM) ELSE 
SET IT 10 3. 


IF HL<>0 THEN SET COLOR TABLE BASE 
ADDRESS TO OFF (THE MAXIMUM) ELSE 
SET IT TO O7F 


SHIFT RAW ADDRESS IN HL BY THE 
NUMBER OF BITS GIVEN IN THE SHIFT 
TABLE IN ORDER TO SET UP THE BASE 
ADDRESS FOR THE VIDEO REGISTER 


GO WRITE THE VIDEO REGISTER 


SHIFT TABLE FOR LOADING BASE ADDRESSES OF VIDEO REGISTERS 
(NUMBER OF BITS TO SHIFT),(REGISTER NUMBER) 


Az0, SPRITE ATTRIBUTE TABLE BASE 
Azi, SPRITE PATTERN GENERATOR BASE 
A=2, NAME TABLE BASE 

A=3, PATTERN GENERATOR BASE 

A=4, COLOR TABLE BASE 




















1884’ 
BBB‘ 


1BeC’ 
BSF’ 
1B92’ 
1395’ 
1898’ 
1B9C’ 
1BAO’ 


1BA3’ 
1BAG‘ 
LBA?’ 


BAA’ 
BAE’ 
1BB2’ 
1BB3’ 
BBS’ 
1887’ 
1BB9’ 
BBC’ 
BBE’ 
1BC0’ 
{RC4/ 
1804’ 
1B?’ 
1BCB’ 
ipcp’ 
LBCF’ 
iBD1’ 
1BD2’ 


1BD4’ 
iBDS’ 
1809’ 
1BDC’ 
1BDE’ 


MACRO-80 3.4 


0001 0001 
FFFE 0002 


01 1880’ 
11 73BA 
CD 0098” 
3A 73BA 
ED 5B 73BB 
FD 2A 73BF 
2A 73BD 


CD 1BAA’ 
CD 1N3E’ 
c9 


S828 
Ss 


3 


BAoIBa 
3 





01-Dec-80 PAGE 1-74 ; D-75 
H 
$ SRELEAILATLAATA ALTRI TT 
SRVBLK? LD BC,DOFDAT ; DISPATCH $ OF 
LB DE,P AREA 
CALL = PCOPY 
LB A,(P AREA) 
LD DE,(P.AREAtL) 
LD TY, (P AREAtS) 
LD HL, (P .AREAt3) 
; 
} 
H ROUTINE TO GET A BLOCK FROM VIDEO RAM 
’ 
RVBLK? CALL PADBJ } DISPATCH # 1E 
CALL = RDVRM 
RET 
; ed 
? 
$ SRRESLILALEAAA TTA TL ATTA 
’ 
; THIS ROUTINE ADJUSTS ADDRESS POINTERS TO 
; REFLECT THE BLOCK SIZE FORCED BY BASE ADDRESS 
’ 
; A=0 TO 4 FOR? SPRITE ATTRIBUTE, SPRITE PATTERN, NAME TABLE, 
; PATTERN GEN AND COLOR TABLE 
’ 
; IY=NUMBER OF BYTES TO BE TRANSFERED 
} DE=BLOCK RELATIVE ADDRESS IN VRAM 
; HL=MAIN MEMORY POINTER 
; 
PADJ? LD (TEMP3) » IY + SAVE IY 
LD IX,BASESH + GET ADDR OF BASE ADDR ARRAY 
LB CrA 
LD B,000 
cP 004 ; COLOR ADDRESS? 
JR NZ,LOOKSH + IF NOT GO LOOK UP SHIFT COUNT 
LD Ay (VDPOSH) 
BIT iyA 
JR Z,NOSHFT $ JUMP IF NOT GR MODE II 
LOOKSH? LD IY,STAB 
ADD TY,BC 
LD A,(TY#000) } LOOKUP SHIFT COUNT? 2)3,0)3,3 
cP 000 + IF ZERO, BO NOT SHIFT 
R Z,NOSHFT 
SLP1: SLA E } SHIFT DE LEFT BY THAT MANY BITS 
RL D 
BEC A 
JR NZ,SLP1 
; 
PUSH BE 
LD BC, (TEMPS) $ SET BC TO WHAT WAS IN IY 
LD A, (TY#000) 
cP 000 } IF NAME TABLE, DO NOT SHIFT 
JR Z,NOSH2 

















CMON. MAC MACRO-80 3.4  01-Dec-80 PAGE «1-75 D-76 
4201 1BE0’ CB 21 SLP2; SLA c 

4202 1BE2’ CB 10 RL B 

4203 iRE4’ | 3D bEC A 

4204 1BES’ 9-20 FY RR NZ,SLP2 

4205 ; 

4206 1BE7’ ED 43 73FE LD (TEMP3) » BC + PUT SHIFTED FORM OF IY BACK 
4207 1BEB’ C1 NOSH2: POP BC 

4208 1BEC’ «ES NOSHFT: PUSH = HL + SAVE HL 

4209 1BED’ = BB 09 ADB IX,BC 2 

4210 {BEF‘ DB 09 ADB TX, BC 

4211 1BFi’ DD 6E 00 LD L,(IX#000) 

4212 1BF4’ DB 66 01 LD Hy (1X+001) ; GET VRAM ADDRESS FROM SHADOW 
4213 1BF7’ 19 ADD HL» DE ; ADD OFFSET 
4214 1BF8’ EB EX DE, HL 

4215 1BF9’ El POP HL + RESTORE HL 
4216 1BFA’ = EB 4B 73FE LD BC, (TEMPS) 

4217 iBFE’ C9 RET 

4218 ae 

4219 

4220 1BFF’ 02 03 00 03» 002,003,000,003,003 

4221 1003’ 03 

4222 

4223 

4224 1004‘ 0005 0001 Srlplyls-2e2 

4225 1(08’ 0001 0001 

4226 1C0C’ FFFE 0002 

4227 ; 

4228 $ SEREALASALEAALTTTALT ATT 

4229 1C10’ 01-1004’ $RCOPY? LB BC,DLOBAT ; DISPATCH # 10 
4230 1C13’ 11 73BA LB DE,P.AREA - 

4231 1€14’ CB 0098’ CALL © PCOPY 

4232 1€19’ 3A 73BA LD Ay (P.AREA) 

4233 ici’ ED SB 738B LD DE,(P.AREAt1) 

4234 1€20’ FD 2A 73BF LD TY, (P AREAtS) 

4235 1€24’ =. 2A 73BD LD HL, (P AREAt3) 

4236 . ; 

4237 ; 

4238 1€27’ FS RCOPY: PUSH AF + DISPATCH # 1F 
4239 1028’ FE 00 cP 000 
4240 102A’ 20 22 JR NZ,SETVR + IF NZ WRITE TO VIDEO RAM 
4241 1C20’ 3A 73C7 LD Ay (CPFLAG) 

4242 1C2F’ FEO cP 1 

4243 1031’ 20 1B R NZ,SETVR + IF NZ WRITE TO VIDEO RAM 
4244 1C33’ Fi POP AF 

4245 1c34’ ES PUSH =so-HL 

4246 1C35’ 24 8002 LD HL, (08002) 

4247 1038’ 7B LB AYE 

4248 1039’ CB 27 SLA A 

4249 1C3B’ CB 27 SLA A 

4250 1C3D’ OF LB EA 

4251 1C3E’ 19 ADD HL DE 

4252 iC3F’ EB EX DE, HL 

4253 1040’ FD ES PUSH =sTY 

4254 1042’ Cl POP BC 

4255 1c43' 9 LB Aye 

42356 1044’ CB 27 SLA 4 
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4257 1C46’ CB 27 SLA A 
4258 1048’ 4F LB CA 
4259 icag’ EL POP HL 
4260 1C4A’ ED BO LDIR + BLOCK TRANSFER 
4261 icac’ 18 07 JR EXIT 
4262 ; 
4263 1C4E’ FA SETVR: POP AF 
4264 1C4F’ CD ABAA’ CALL = PAD 
4265 1€52’ CD iD01’ CALL == CPRTV 
4264 icS5’ EXIT RET 
4267 See praca 
4268 ; 
4269 1€56’ 0001 0001 DLIIDATS DW 151 
4270 ; 
4271 PB issiseressstrecsssess tri tees 
- 4272 iC5A’ 01 1056’ SCNTMS LD BC,DIIDAT + DISPATCH # 11 
4273 1C5D’ 11 73BA LD DE,P AREA 
4274 1060’ CB 0098’ CALL «= PCOPY 
4275 1063’ 3A 73BA LD Ay (P AREA) 
4276 ; 
4277 ; 
4278 1066’ 47 CNTMS §=LD ByA ; DISPATCH # 20 
4279 1067’ AF. XOR f } FILL MEMORY WITH COUNTS STARTING AT 
4280 1068’ 2A 8004 LB HL, (08004) + (8004) UNTIL COUNT= A 
4281 1C6B’ 77 CLOOP: LD (HL) »A 
4282 1CsC’ 3 INC HL 
4283 {cép’ INC A 
4284 1CoE’ BB cP B 
4285 1COF’ 20 FA JR NZ,CLOOP 
4286 ic7i’ RET 
4287 ; moore 
4288 ; 
4289 1€72’ 0001 0001 DI2DAT: DW iy] 
4290 ; 
4291 $ SEEEASSAATS ASST ; 
4292 1076’ O1-1072’ $BXFR} LD BC,DI2DAT } DISPATCH # 12 
4293 1079’ 11 73BA . LD DE »P AREA 
4294 170’ CD 0098’ CALL = PCOPY 
4295 1C7F’ 3A 73BA LD Ay (PAREA) 
4296 ; 
4297 ; 
4298 1C82’ BD 2A 8004 BXFR} = LD TX, (08004) + DISPATCH # 21 
4299 1086’ FS PUSH = AF + TRANSFER REG A NUMBER OF BLOCKS 
4300 1087’ FD 21 73F2 LD TY ,BASESH + FROM ARRAY @(8002) WITH STARTING 
4301 1C8B’ FD SE 00 LD E,(1Y+000) + INDEX (8004) FROM MAIN MEM TO 
4302 1C8E’ FD 56 01 LD Dy (IY+001) > VRAM 
4303 1C91’ 7B LD AyE 
4304 1072’ 03 BF OuT (VBPR) 9A 
4305 1C94’ 7A LB AyD 
4306 1095’ Fé 40 OR 040 
4307 1097’ 03 BF OuT (VDPR) A + SET UP VRAM ADDRESS 
4308 1099’ Fi POP AF 
4309 1C9A’ = 2A 8002 BXFLP1; LB HL, (08002) 
4310 1090’ = DD 4E 00 LD C, (1X+000) 
43il 1CA0’ = DD 23 INC IX 


4312 1CA2’ 06 00 LB By000 














4367 
4368 


ica’ 
CAS’ 
1CA6’ 
iCa7’ 
1Ca8’ 
1CAA’ 
1CAC’ 
CAE’ 
CAF’ 
180’ 


1CB2’ 
1CB3’ 
CBS’ 


1034’ 
CBA’ 


1CBC’ 
CBF’ 
1CC2’ 
1(C5’ 
1CC8’ 
1009’ 


iCCA’ 
1CCB’ 
icch’ 
1CCE’ 
100’ 
{Ch2’ 
103’ 
i¢DS’ 
1CD7’ 
iCD8’ 
icp’ 
{CDC’ 
CDE’ 
1CE0’ 
1CE1’ 
iCe4’ 


CES’ 
1CE9’ 


iCen’ 
1CFO’ 
LCF3’ 
1CF6’ 
1CF9’ 
icFD’ 


MACRO-80 3.4 


SSS 
amas 


nn 
> 


S88 883SRRES3 
a 


0002 0001 
0001 


01 1CB6’ 
11 73BA 
CD 0098’ 
24 73BA 
4c 
45 


0003 FFFE 
0002 0002 


01 ICES’ 
11 73BA 
CD 0098’ 
24 73BA 
ED SB 73BC 
ED 4B 73BE 
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ADD HL BC 

ADD HL, BC 

ADD HL,BC 

ABD HL, BC 

LB B,004 

LD C,VRAM 
BXFLP2? GUTI 

NOP 

NOP 

JR NZ, BXFLP2 
’ 

DEC A 

JR NZ,BXFLP1 

RET 





’ 
tbiesesessesetetssseceit cess 
SWRTRG? LD BC, DI7DAT } DISPATCH # 17 
LD DE,P AREA 
CALL = PCOPY 
LD HL, (P.AREA) 
LD CrH 
LD Byl 
’ 
’ 
WRIRG: LD AyC } DISPATCH # 28 
OUT (VDPR) »A + WRITE VDP REGISTER 
LD fAyB > REG # IN By DATA IN C 
ADD Ay080 
OUT (VDPR) A 
LD AyB 
cP 000 $ IF WRITING TO REGISTER 0 OR 
IR NZ,WRTRL $ 1 THEN UPDATE THE CORRESPONDING 
LD A,C + SHADOW IN RAM 
LD (VDPOSH) »A 
WRIRI: LD AgB 
cP 001 
R NZ,WRTR2 
LD AL 
LD (VDP1SH) »A 
WRIR2: RET 
; meet 
; 
BISpAT: Dw 39729272 


+ 


’ 
$ SRRRKEAITAAEAAIA TATE TTE 


SCPRTV? LD BC, D1I8BAT + DISPATCH # 18 
LB DE,P AREA 
CALL == PCOPY 


LD HL, (P AREA) 
LD DE, (P.AREA+2) 
LD RC, (P AREAt4) 
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4369 ; . 

4370 ; fe 

4371 ; HERE WE COPY FROM HAIN MEMORY @ HL TO VITEO RAM 
4372 ; @ DE FOR BC BYTES. 

4373 ; 

4374 1DOLES CPRTV! PUSH = HL + DISPATCH # 2A 
43751002” PUSH DE 

4376 1003’ EL POP = HL 

4377 1004’ 11 4000 LD © —-DE,04000 + PUT IN WRITE FLAG 
4378 1D07”—«19 ADD HL, DE 

4379 108’ 7D LD Ay 

4380 «100903 BF QUT —-(VDPR),A 

4381 1D0B’ 7 LD AnH 

4382 1D0C’. 1B BF QUT (VOPR) A 

4383 1DOE’. CS PUSH BC 

43840 IDOF” DL Pop sO 

4365 1D’ EL POP HL 

4386 IDL’ OE BE LDC, VRAM 

4367, 113" LD BYE 

43e8 0 1D14’ ED AB VOLP! OUT 

43891016’ (00 NOP 

4390 1D17" 00 NOP 

4391 118’ C2: 114" JP sNZ,VOLP 

4392 IDB’. 15 MeO 

4393 DIC’. «FA 1021" JP My VOEXIT 

4394 IDLF’ «20 F3 JR NZ, VOLP 

4395 1021’ VOEXIT! RET 

4396 amen nn - 

4397 ; 

4398 ; 

4399 1022" 0003 FFFE DIQDATS DW 324242 

4400 1026" 0002 0002 

4401 ; 

4402 S SEREReeenerneersseerenserergaaess 

4403 1D2A’— OL 1022" SRDVRM? LD =—-«BC, DDAT + DISPATCH # 19 
4404 1020’ 11 73BA LD DEP AREA 

4405 1030" CD 0098” CALL © PCOPY 

4406 1083’ 2A 73BA LD HL (P. AREA) 

4407 1036’ ED SB 73RC LD CDE, (PAREA#2) 

4408 = DBA’.—«ED 4B 73BE LD —-BC, (P,AREA#4) 

4409 ; 

4410 ; 

4411 ; THIS ROUTINE TRANSFERS BC BYTES FROM VIDED RAM AT DE 
4412 ; TO MAIN RAM AT HL | 
4413 ; 

4414 IDE’. 7B RDVRM! LD AYE + DISPATCH # 28 
4415 1D3F’ BB QUT —(VDPR) A + PUT OUT VRAM ADDRESS IN DE 
4416 «1D41" 7A LD AyD 

4417-1042’ BB QUT ——-(VDPR),A 

4gig Maa’ CS PUSH BC 

aaig 14S” POP sO 

4420 1046’ OE BE LDC, VRAM 

4421148’ a3 LD BYE 

4422149” ED A2 VINLP? INI 

4423 1B’ 00 NOP 

4424 1DAC’ 00 NOP 
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4425 ADD’ C2149" JP ONZ,VINLP 

44261050" 15 Me OUD 

4427 «ADSI FA 1056’ PM VIEXIT 

4428 1054’ 20 FB JR NZ, VIMLP 

4429156’ C9 VIEXIT! RET 

4430 —- 

4431 ; 

4432 : Brccsscccisscersiitcesers tii 

44331057’ 0B BF RDVST? IN A,<USTAT) } DISPATCH # 29 

44341089’ CP RET } READ THE VIDED STATUS REGISTER 
4435 aca 

4A36 ; 

4437 ; 

4438 } 

4439 ; 

4440 RB siestesssssiesstsriinossscs| 

4441 105A’ DD 21 1096" RLFLP? LD ©=—LX,D3BOD } DISPATCH # 03 

4442 10SE’ 18 10 JR SAWR } RIGHT/LEFT FLIP A LIST OF IMAGES 
4443 ' | 
4444 : . 

4445  1D60’ DD 21 1087’ UDFLP? LD = sTX,D4BOD } DISPATCH # 04 

4446 1064’ 18 OA Rs SAUR + UP/DOWN FLIP A LIST OF IMAGES 
4447 ; 

4448 ; 

4449 1066’ DD 21 1DES’ ROTAT: LD IX, DSROD } DISPATCH # 05 

4450 106A’ 18 04 RR SIR : 


ROTATE EACH IMAGE IN A LIST BY 90 DEG 





4451 ; 

4452 ; 

4453 1D6C’ DD 21: 1607" EXPNDS LD 1X,D6BOD + DISPATCH # 04 

4454 ; + BLOW UP A LIST OF 8X8 IMAGES TO 16X16 
4455 ; 

4a56 ; 

4457-1070" SAVR! —EXX + REGISTER SAVING ENTRY CODE 

4458 107108 EX AF AF? + FOR THE IMAGE TRANSFORM ROUTINES 
4459 «1072s DD ES PUSH IX 

4460 ; 

4461107408 SAVLPS EX AF AF’ + WE CAN LOOP FOR SEVERAL TRANSFORMS 
4462175" FS PUSH AF 

4463-1078" 08 EX AF AF’ 

4464 1D77" FA POP AF 

4465 1078’ EXX 

4466 1079" 0S PUSH DE 

4467 1D7A’ 9 EXX 

4468 1078’ OD pop OE 

4469 D7’ FD 21 0001 LD 1Y,00001 

4470 1080’ 2A 8006 LD HL, (08006) 

4471 1D83’ CD. LBA’ CALL RVBLK 

4472-108’ DD EL POP sd 

44731088’ DD ES PUSH IX 

4474 1DRA’ DD ED JP (Xx) 

4475 ; 

4476 ; 

4477 1D8C’ 13 DEXIT! INC DE + RESTORE AND EXIT 


4478 inep’ = OB BEC BC 
4479 1D8E’ 78 
4480 iner’ = Bi OR Cc 


& 
> 
“ 

oo 
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4481 1090’ DP EXX 7 

4482 191/20 EL BR ONZ,S } IF THROUGH LOOPING 

4483 «1D93’sMD El pop IX 

4ug4 1095’ 9 RET 

4485 ; 

4486 ; 

4487 ' 

4488 ©1096" 2A 8006 D3BOD! LD  —«HL,(08006) ==}: DOA RIGHT/LEFT FLIP OF AN 8X8 
4489 ©1099” 01 0008 LD = BC,00008 + IMAGE AND COPY ALL PARAMETERS 
4490 © 1D9C’ ES PUSH HL + SO IT IS READY TO DISPLAY 
4491 1D9D’ OD pop oODE 

4492 VE’ 09 ADD HL, BC 

4493 «IDOF’ EB XE HL 

4494 1DA0’ CD 1F 00! CALL FLIP 

4495 1DA3’ CD 172’ 7 CALL IPOUT 

4496 = 10A6’ CD LED’ CALL ADJA 

4497 —«1DA9’—FE 01 cP (OL 

4498 = 1DABY. «20 06 JR NZ, D3EXX 

4499 {DAD «CD 1689’ CALL CBREAD 

4500 1DRO’ CD 1E9A’ CALL CBOUT 

4501 1DB3’DY D3EXX! EXX 

4502 DBA’ 23 INC HL 

4503 10B5’ 18 DS JR ODEXIT } DONE 

4504 ; 

4505 ; 

4506 1087’ 2A 8006 DABODS LD “HL, (08006) ~~ }-DO_AN UP/DOWN FLIP OF AN 8X8 
4507  10BA’ 01 0008 LD «BC, 00008 + IMAGE AND COPY ALL PARAMETERS 
4508 LBD’ ES PUSH HL .  $ SO IT IS READY TO DISPLAY 
4509 1DBE’ DI PoP ODE 

4510 1DRF’ 09 ADD HL, BC 

4511 1DCO’—EB EX DE, HL 

4512 1DC1’ CD AFAE’ CALL UPSIDE 

45131004’ CD 1672’ CALL IPQUT 

4514 107’. ESD’ CALL ADJA 

4515 ICA’ FE OL cp (OO 

4516 1D’. 2013 JR NZ, DAEXX 

4517 INCE’ CD 1689” CALL CBREAD 

4518 101’ 2A 8006 LD HL, (08004) 

4519 1014’ 010008 LD —-BC,00008 

4520 1DD7’ ES PUSH HL 

4521-108’ pop oODE 

4522 1009” ADD HL) BC 

4523. 1DDA’. EB EX DEyHL 

4524  1DDR’ CD. 1FAE’ CALL UPSIDE 

4525 1DDE’ CD 1E9A’ CALL CBOUT 

4526 «IDEN. DAEXXS  EXX 

4527 1DE2’ 23 INC HL 

4528 1DE3’«18 7 Ro ODEXIT 

4529 ; 

4530 ; 
4531 DES’ 2A 8006 ‘DSBOD! LD HL, (08006) —«¢- ROTATE AN XB IMAGE BY 90 DEG, AND 
4532 1068’ 01 0008 LD «= s«BC,00008«=ss«é «COPY ALL PARAMETERS SO IT IS READY 
4533 1DER’ ES PUSH HL ; TO BE DISPLAYED 

4534 IMEC’. OD pop EC 

4535 1DED (09 AND HL, BC 


4536 1DEE’ EB EX DE, HL 
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4537 
4538 
4539 
4540 
4541 
4542 
4543 
4944 
4545 


4590 


4592 


DEF’ 
iDF2’ 
1DF5’ 
DFS’ 
IDFA’ 
iDFC’ 
IDFF’ 
102’ 
1603’ 
1604’ 


1£07’ 
1E0A’ 
En’ 
1E0E’ 
EOF’ 
E10’ 
1Ei1' 
1E14’ 
1£15’ 
1E16’ 
1£17’ 
1£18’ 
1E19’ 
1E1A’ 
1E1B’ 
1EIC’ 
1E1F’ 
1£22’ 
1E23’ 
127° 
1E2A’ 


1E2F’ 
1E31’ 
1E34’ 
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CB iFi2’ 
CB 1E72' 
CD iESD’ 
FE 01 

20 06 

CD 1E89’ 
CD 1E9A’ 


we 


+ 


’ 
DSBOD: 


CD 1EAB’ 


24 8006 
01 0008 


FD 21 0004 
CD 127’ 
CD ESD’ 


CD 1E89’ 


09 DSEXX? 


1-61 D-82 


ROT9O 
TPOUT 
ADJA 

001 
NZ,DSEXX 
CBREAD 
CBOUT 


BEXIT 


+ BLOW UP AN 8X8 IMAGE TO A FULL 
> 14X16 AND COPY ALL PARAMETERS 
; $0 IT IS READY TO DISPLAY 


HL,» (08006) 
BC,00008 
HL» BC 
TY,00004 
RCOPY 

ADJA 

001 

NZ »D6EXX 
CBREAD 

HL (08006) 
BC,00008 
HL 

DE 

HL, BC 

DE HL 
DHIGH 
A,004 


HL 


DE 

HL, (08006) 
BC,00008 
HL» BC 
TY,00004 
RCOPY. 





4593 
4594 
4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
4605 
4606 
4607 
4608 
4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4628 
4629 
4630 
4631 
4632 
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158’ 
1859’ 
ESA’ 


1E5D’ 
1ESE’ 
ESF’ 
1E40’ 
1E61’ 
1£63’ 
1E65’ 
1E48’ 
LEGA’ 
1ESC’ 
LEGE’ 


EOF’ 
1E71’ 


1£72’ 
1£73/ 
1£74° 
1E75’ 
1E76’ 
1£77’ 
1£78' 
1E79’ 
1E7A’ 
1E7B’ 
1E80’ 
1E81‘ 
1E85’ 
1E88’ 


1E89’ 
1E8B’ 
EBC’ 
EBB’ 
1EBE’ 
1E8F’ 
1E92° 
196’ 
199’ 


1E9A’ 
1E9C’ 
iEgn’ 
1E9E’ 
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3 
23 
C3 i1B8C’ 


= 


SSIS S2S3RSH 
ag 


SASH 


01-Bec-80 PAGE 1-82 


a ere ere ree ee eee 


sy 
ae 
: 
7 
é 
is 
8 


ADJAOS 


ewe «we 


BSP est ressssteeess toss oss ss | 
IPQUT? EX AF AF’ 


PUSH = AF 

EX AF AF’ 

POP AF 

EXX 

PUSH = «HL 

EXX 

POP DE 

LD HL» (08006) 

LD BC,00008 

ADD HL,» BC 

LD TY,00001 

CALL =—-RCOPY 

RET 
; — 
’ 
y SSRSSAERALEATAL STATIS TTT 


CBREAD: Ay004 


HL, (08004) 
TY,00001 
RVBLK 


| HESS SagRe 
mm 


Cp 20 we we 


Eréstotisossertssstesscrs sess 
BOUT: LB A004 
Ex 
PUSH =H 
EXX 


* 
’ 


’ 
' 


* 
' 


® 
? 
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ADJUST THE VDP REGISTER TYPE 
INA TO THE NEXT IN THE TRANSFER 
PROGRESSION 


CHECK FOR GRAPHICS MODE IT 


ROUTINE USED TO SEND IMAGE 
PARAMETERS TO THE VDP 
PARAMETER TYPE IN A 


GET COLOR BYTE FROM VDP HEM 


SCREEN POSITION FROM DE 


SEND COLOR BYTE TO VDP 


SCREEN POSITION FROM HL 








1E9F’ 
TEA’ 
LEAS’ 
EA?’ 
EAA’ 


1EAB’ 
LEAC’ 
EAE’ 
LEAF’ 
1EB1’ 
1EB4’ 
1EB7’ 
LEB?’ 
EBA’ 
EBC’ 
LEBE’ 
1£C0’ 
1£C2’ 
1EC4’ 
1EC5’ 
1EC7’ 
1£C9’ 
LECB’ 
1ECD’ 
1ECF’ 
EDL’ 
1ED2’ 
1ED4’ 
1ED7’ 
EDA‘ 
LEDC’ 
1EDF’ 
{EE2’ 
1EE4’ 
EES’ 
1EE6’ 
1EE7’ 
1EE9’ 


1EEA’ 
iEED’ 
LEEE’ 
iEEF’ 
1EFO’ 
{EF 1’ 
1EF2’ 
1EF3’ 
ay 
LEFS’ 
1EF6’ 
iEFB’ 
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D1 pop =OfsédE 
24 8006 LD HL» (08004) 
FD 21 0001 LB IY,00001 
cD ic27’ CALL RCOPY 
i] RET 
; 
¥ 
$ SUSESRIEREAEAERERE ESTEE 
£5 DWIDE! PUSH = HL 
DD E1 POP IX 
1S PUSH DE 
FD El POP IY 
1 0008 LD BC,00008 
DD 7E 00 Dwi: | LD Ay (1X#000) 
DD 23 INC IX 
537 LD DyA 
1E 04 LD E,004 
CB 17 Dw2: RL A 
CB 14 RL H 
CB 12 RL B 
CB 14 RL H 
1D peeté‘é 
20 F5 JR NZ, DW2 
1E 04 LD E,004 
CB 17 DW3! RL A 
CB 15 RL L 
CB 12 RL D 
CB 15 RL L 
1D pec Ci‘é€ 
20 F5 JR NZ, DW3 
FD 74 00 LD (1¥+000) »H 
FD 75 10 LD (14010) pL 
FD 23 INC ly 
FD 74 00 LD (1Y4000) 9H 
FD 75 10 LD (TY4010) pL 
FD 23 INC IY 
0B DEC OCB 
7” LD AyC 
BO OR B 
20 CB JR NZ,DW1 
C9 RET 
; — aren sonar es aomenanaee 
? ‘ 
$ SURerxgaseeeenssareeesscte 
OL 0010 DHIGH! LD BC,00010 
£5 PUSH HL 
7E DHi: =—soLD Ay CHL) 
23 INC) OHL 
12 LD (DE) A 
13 Inc —oDE 
12 LD (DE) A 
13 INC —_dDE 
OB pec OB 
vA] LD AyC 
FE 08 cP 008 
20 01 


BR NZ, DH2 
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+ CONVERT 8X8 IMAGE TO DOUBLE WIDE 


CONVERT AN 8X8 IMAGE TO TWO 
8X16 IMAGES (DOUBLE HIGH) 
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4705s 1EFA’ EL POP HL 
4708 = s«MEFB’ 79 TH2: LD AyC 

4707s 1EFC’ BO oR B 

4708 —«1EFD’ =. 20 EF JR NZ,DHi 

4709s LEFF’ RET 

4710 i-— 

4711 ; 

4712 PB tesssststesseccsttcsstsssees 

4713 1F00’—s OL: 0008 FLIP! LD BC,00008 $ ROUTINE TO RIGHT/LEFT FLIP AN 8X8 IMAGE 
4714s AFOS’ 46 FLIP1! LD B, (HL) 

4715. 1F04’ JE 80 LD A,080 

4716s: 1F06’ CB 10 FLIP23 RL B 

4717s AFO8’ ss F RRA 

4718 —«1FO9’ 30 FB JR NC,FLIP2 

4719s AFOB’ = 12 LD (DE) yA 

4720 = IFOC’ 23 INC = oHL 

4721 AFON’ = 13 INC ODE 

4722 1FOE’ «OD . pee OC 

4723. so 1FOF’ = .20 F2 JR NZ)FLIP1 

4724 AFAL’ C9 RET 

4725 i——— 

4726 ; 

4727 PB ttstsitsscstsessttsesesstees 

4728 s«1F12’ £5 ROT90: PUSH HL + ROUTINE TO ROTATE AN 8X8 IMAGE 
4729, AFI3’—sDD EL POP =—s«dX ; + BY 90 DEG 
4730s IFS’ «EB EX DE,HL 

4731 1F16’ 01-0008 LD BC,00008 

4732s AF 19” —s DD CB 00 16 ROTI = RL (1X4000) 

4733, so AFIN’ = CB JE RR (HL) 

4734. 1FIF’ DD CB OL 16 RL (IX#001) 

4735 1F23’ CB IE RR (HL) 

4736 = 1F25’ DD CB 02 14 RL (1X#002) 

4737, s«1F29"—s CB JE RR (HL) 

4738 «=—s« 1F2B’ ss DD CB 03 14 RL (1X#003) 

4739s AF2F’ CB IE RR (HL) 

4740s AF31’ DD CB 04 14 RL (1X4004) 

4741s 1F35’ CB LE RR (HL) 

4742 1F37’,—s DD CB 05 14 RL (1X4005) 

4743s AF3B’—s CB LIE RR (HL) 

4744s AF3N’ = DD CB 06 16 RL (1X4004) 

4745s AFA1’ = CB IE RR (HL) 

4746 =: 1F43’—s DD CB 07 16 RL (1X#007) 

4747, AFA?’ CB JE RR (HL) 

4748 IF 49’ 23 INC = HL 

4749 «AFA OD me OC* 

4750 = FAB’. 20 CL JR NZ,ROT1 

4751s IFAD’ C9 RET 

4752 ;- 

4753 ; 

4754 Bi Sestscssessseetissstess seed 

4755 1FAE’ OL 0007 UPSIDE LB BC, 00007 } ROUTINE TO DO AN UP/DOWN FLIP 
4756 = AFS1’ OP ADD HL, BC $ OF 8X8 IMAGE (HL) TO (DE) 
4757s AFS2° 03 INC 8=— BC . 

4758 = 1F53’7E USIDLP? LD Ay (HL) 

4759s 1FS4’— 12 LD (DE) yA 


4780 {FSS’ 13 INC DE 
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4761 
4762 
4783 


iF36’ 
1F57" 
iF 38’ 
1F59’ 
iFSA’ 
LFSC’ 


1FSD’ 


1F61’ 
1F64’ 
1F 67’ 
1FOA‘ 
iFén’ 
1F70’ 
1F73’ 
1F76’ 
1F79’ 
{F7C’ 
1F7F’ 
1F82’ 
1F85’ 
1F88’ 
iF 8B’ 
1F8E’ 
1F91’ 
1F94’ 
1F97’ 
1F9A’ 
1F9D’ 
1FA0’ 
IFAS’ 
1FA6’ 
FAQ’ 
FAC’ 
1FAF’ 
1FB2’ 
1FBS’ 
1FB8’ 
iFBB’ 
LF BE’ 
iFC1’ 
1FC4’ 
iFC7’ 
IFCA’ 
iFCD’ 
1FBO’ 
iF D3’ 
1FD6’ 
1FD9’ 
iFDC’ 
FOF’ 
1FE2’ 
IFES’ 
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FF FF FF FF 


C3 0300’ 
C3 0488 
C3 06¢7 
C3 105A’ 
C3 1060 
C3 1066’ 
C3 1D6C’ 
C3 114a’ 
C3 1188 
C3 1979’ 
C3 1927" 
C3 1904’ 
C3 1869’ 
C3 116A’ 
C3 1BOE’ 
C3 1BeC’ 
C3 1010’ 
C3 1C5A’ 
C3 1076’ 
C3 OF9A 
C3 OFBS 
C3 1044 
C3 10BF 
C3 ICBC’ 
C3 1CED’ 
C3 102A’ 
C3 0655 
C3 0203’ 
C3 0251’ 
C3 1BiD’ 
C3 1BA3’ 
C3 1C27’ 
C3 1066’ 
C3 1082’ 
C3 OFAA 
C3 OFC 
C3 1053 
C3 10CB 
C3 OF37 
C3 0238" 
C3 1CCA’ 
c3 1057’ 
C3 1001’ 
C3 1036’ 
C3 0664 


0i-Bec-80 


+ WRTRGS 
CPRTVS 
+RDVRAS 


oDINITS 


BASLDV’ 


SstissessusteessseSssssSuessss55sssssssss4ss ss 


RCOPYV: 
CNTMVS 


QUIETV! 
WRTRGV! 
CPRTWV: 
RIVRHV! 


PAGE 


DEC 
DEC 
LD 
OR 
RB 
RET 


BB 
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HL 

BC 

AeB 

Cc 
NZ,USIDLP 


Eee OS OEE LE LE SC SEO 


OFF ,OFF , OFF OFF 


SOUND 
00488 
006C7 
RLFLP 
UDFLP 


_ ROTAT 


EXPND 
UBKJS 
SCANN 
SKLDS 
FINIT 
FILUR 
VINIT 
UDPCR 
$BASLD 
$RVBLK 
$RCOPY 
$CNTM 
$BXFR 
OOF 9A 
OOFB8 
01044 
OL10BF 
S$WRTRG 
S$CPRTV 
$RDVRH 
00655 
$DINIT 
S$NEWTB 
BASLD 
RVBLK 


0-86. 








FEB’ 
FER’ 
IFEE’ 
iFF1’ 
iFF4’ 
FF?’ 
FFA’ 
FFD’ 
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C3 0879 
C3 1101’ 
C3 213° 
C3 025E’ 
C3 027F’ 
C3 0403 
C3 06D8 
C3 0038’ 


01-Bec-80 PAGE 


JP 

CTABPV: JP 
DINITVS JP 
NEWTBV: JP 
UPTABV: JP 
JP 

JP 

NDXVS | IP 


R 
2 
’ 
¢ 
’ 
* 
’ 
e 
’ 


END 
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00879 
CTABP 
DINIT 
NEWTB 
UPTAB 
00443 
00608 
RNDX 


END OF PROGRAM 
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ye 


